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PHILIPS  introduce  en  España 
el  HOMECOMPUTER  más  sabio, 
el  sistema  MSX,  nuevo  estandard 
mundial. 

¡Con  cuanta  sabiduría  se  ha 
pensado  en  cada  una  de  sus 
características! 

Con  el  PHILIPS  MSX  puede 
realizar  mil  combinaciones 
de  elementos:  monitores, 
impresoras,  floppys,  programas 
educativos,  de  juegos  y 
aplicaciones  profesionales,  gracias 
a  su  compatibilidad  total  tanto 
en  hardware  como  en  software. 

El  PHILIPS  MSX  está  tan 
sabiamente  diseñado  que  Vd. 
puede  elegir  entre  conectarlo  al 
televisor  de  su  casa,  o  a  un  monitor 
monocromo  o  de  color. 

De  igual  modo  puede  utilizar 
como  unidad  de  almacenamiento 
de  memoria  un  cassette  normal 
o  un  Floppy  Disc  del  sistema 
MSX. 


¡Y  qué  potencia  tiene  el 
PHILIPS  MSX! 

Es  tanta,  que  si  lo  utilizamos 
con  un  Floppy  Disc  y  junto  a 
MSX-DOS,  es  compatible  con 
sistemas  de  tipo  profesional  y  de 
precio  mucho  más  elevado. 

Y  aquí  no  acaba  la  sabiduría 
con  que  ha  sido  creado  el 
PHILIPS  MSX. 

Puede  hacerlo  crecer  según 
sus  necesidades,  desde  un 
sencillo  ordenador  doméstico, 
con  el  lenguaje  Basic  más 
potente  del  mercado,  hasta  un 
sistema  de  tipo  profesional  que 
puede  llegar  a  una  capacidad 
máxima  de  1.024  K  bvtes. 

PHILIPS  MSX.  Nunca  se  le 
quedará  pequeño,  nunca  se 
le  quedará  anticuado. 

PHILIPS  MSX,  creado  como  un 
equipo  atractivo,  fácil 
de  usar  y  muy  asequible  de 
comprar. 


¡PHILIPS  MSX,  sin  duda,  el 
sistema  más  sabio! 

MSX-DOS  es  compatible  con 
CP/M™  y  posee  la  misma 
estructura  de  ficheros  que 
MS-DOS™. 

Todos  los  sistemas  MSX  son 
compatibles  entre  sí. 

MSX,  MSX-DOS™  y  MS-DOS™  son  marcas 
registradas  de  Microsof  Corp. 

CP/M™  es  una  marca  registrada  de  Digital 

Research 


O  Si  desea  algún  tipo  de 

información  relacionada  con 
el  campo  del  HOMECOMPUTER, 
estamos  a  su  disposición  en  el  teléfono 

(91)  413  22  46 


Desearía  recibir  más  información 
sobre  el  PHILIPS  MSX. 

Nombre  . 

Apellidos 

Domicilio  . 


PHILIPS  MSX  HOMECOMPUTER  SYSTEM 

El  amigo  sabio  de  la  familia. 


PHILIPS  IBERICA  S.A.E. 
Apartado  de  Correos  50.800 
28080  MADRID 


DIRECTOR 

José  Luis  Cano  Regidor 


COORDINADOR 

Félix  Santamaría  Avila 


DISEÑO 

Angélica  Arce 

REDACCION  Y 

COLABORADORES 

Gustavo  Cano 
Javier  López 
•  Victoria  Aguilar 
E.  L.  Torralba  • 
Juan  C.  Pizarroso 
A.  Moreno 
C.  Guedán 


DIBUJOS: 

Mauro  Novoa,  G.  C.  Muñoz 

•  .  •  •;  • 

EDITA 

MONSER,  S.  A. 


DIRECTOR  EDITORIAL 

José  Nieto  Rubio 


REDACCION,  ADMINISTRACION 

Y  PUBLICIDAD 

Argos,  9 
28037  Madrid 
Tel.  742  72  1 2-96 


f 


t  # 


PUBLICIDAD  Y 
SUSCRIPCIONES 

Yolanda  Bardillo 


FOTOCOM  POSICION 

Artecomp,  S.  A. 

C/  Albarracin,  50  - 1  o 

FOTOMECANICA 

Imagen 


IMPRIME 

Gráficas  ABAD 


DISTRIBUCION 

COEDIS 


DEPOSITO  LEGAL 

M-29269-1985 

Reservados  todos  los  derechos 


AÑ01-N.05 


SPECTRUM 


4  Caníbales 

5  Squash 

6  Mandala 
8  Cosmos 


MSX 


1 0  Crack 
12  Caseta  de  tiro 
14  Dragster 


V 


COMMODORE 


16  Simmon 
23  Oeste 
26  Estadística 


AMSTRAD 


29  Ajedrez 
33  Buque  fantasma 


CUPON  OFERTA 
Aproveche  ahora  esta  magnífica 
oportunidad  para  suscribirse 
a  TYPE  AND  RUN. 

Envíe  HOY  MISMO  este  cupón. 

Inmediatamente  empezará  a  recibir  sus  ejemplares  de  TYPE  AND  RUN  y  así 
durante  1  año  (12  ejemplares). 

El  importe  lo  abonaré:  POR  CHEQUE  □  CONTRA  REEMBOLSO  □ 
GIRO  POSTAL  □  N." 


DIRECCION 


CIUDAD 


PROVINCIA 


Te  encuentras  en  una  isla  poblada  de  hambrientos 
caníbales,  que  van  detras  de  ti.  Debes  intentar  que  los 
caníbales  caigan  en  los  hoyos.  Para  hacer  esto,  debes 
colocarte  detrás  de  un  hoyo. 

Las  teclas  son: 

A  =  subir 
S  =  bajar 
K  =  izquierda 
L=  derecha 

Cualquier  otra  tecla  hace  que  te  detengas. 
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SQUASH 


Se  deben  utilizar  las  teclas  «M»  =  derecha  y 
«N»  =  izquierda,  para  mantener  la  bola  en  la  pista. 
Dispones  de  3  bolas.  La  bola  se  obtiene  con  la  nota 
gráfica  C  y  la  raqueta  con  la  nota  gráfica  A  y  B. 
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MANDALA 


Este  es  un  juego  basado  en  las  damas.  Tú  juegas  con  las 
fichas  redondas  y  el  ordenador  con  las  fichas  azules 
parecidas  a  alfiles  de  ajedrez.  El  movimiento  de  las  fichas 
es  diagonal  y  se  captura  una  ficha  del  oponente,  saltando 
a  una  casilla  vacia  detrás  de  la  del  oponente  (como  las 
damas).  A  diferencia  de  las  damas,  no  se  pueden  hacer 
saltos  múltiples,  las  fichas  pueden  moverse  en  cualquier 
dirección,  pero  siempre  diagonalmente.  Gana  el  primero 
que  capture  siete  piezas  enemigas. 
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COSMOS 


Este  juego  consiste  en  disparar  y  abatir  el  mayor  número 
posible  de  naves  de  los  hombres  pájaro  en  un  tiempo 
determinado  (minuto  y  medio),  ¡ii  Suerte  MI 
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1^22  POKE  USR  **  C  "  f  ,  3 

©130  NEXT  í 

61kS  retuRN^® '®'4'4'4'®'0. 126 

INK  7:  PLOT  0,0;  DRRU  0.17« 


DRPU  0, -175 


7000  . . 

:  DRPU  255,0 
-255 , 0 

7005  INK  4:  PRINT  PT  1,10, 

i; ;; > » >c05M05  <<<••' rt  3' 10' 

-1'  INK  7 


DRPU 

FLP51 

flpsi 

flpsj 


9 


PT 


yo  ur" 

•  t 

¿cys  : 


INT 


2070  GO  TO  20  i 

1:  €!&»? 1 m** .  L 

' PLOT  0 , 0 
4010  RETURN 


ÍJ-i¿"C0S”0» 

í£ííí*ÍÜíK  5?^"^^-=*»**® 

52XXr¿ü¿  Uzers, 

7030  print  ••  use 

7040  PRINT  -  R~:  pR 

RINT  PRIMT  "  «>  P  o-: 

7060  PRINT  ”  y...  pR 

^UP^DOUN^  T°  m°V*  VOur  s¡9ht 

^.PJ&vyr, •«&,•»? ;» 

xnt®trbK23  plSshMT  S :  P^IKT 

TO  COMMENCeV**”  X'  PRESS 
7100  ÍnPU?u*^0ClÍ,®G0RT0  ió17 

hV  «-INTERNO  *»•*;«• 

-INT  ( RND  *  19 )  42 :  LET  ox=?! 

5O50  OOER  0r  PRINT  RT  17 , __ 

•  fy  16/^5;  ;  PT  iq 

síi^r'^rf38"1*7 

9999  FOR  n*0  TO  255-  INK  TfMT  tn 
-1.87B) :  PLOT  n,0;  DRPU  0,175: 


CRACK 


Eres  un  crack  de  fútbol  y  estás  demostrando  tus 
habilidades.  ¿Cuánto  tiempo  podrás  tener  el  balón  en  el 
aire?  Puedes  utilizar  la  cabeza  o  los  pies  usando  la  barra 
espadadora.  Asimismo  si  logras  que  el  balón  pase  por  Ioí 
huecos  del  techo  lograrás  más  puntos.  Para  variar  la 
velocidad  del  balón,  varia  SP  en  la  línea  fio 


y 


REH 


FOR  I  •  |  TO  37  i 
NCIT  t  SPRITEtl  • 
FOR  I  •  |  TO  37  i 


SCREEN  I,  J  i  KEf  OFF  i  COLOR  15,  J,  J  f  PRINT  •• 

SOCCCR  PRO*  ‘ 

READ  0  i  Ai  •  Al  ♦  CHRM  0  |  i 

»  •  At  i  At  ■  •• 

REA»  0  l  At  •  A$  ♦  CHAI (  0  )  i 

NEIT  t  SPRI TEt <  J  )  -  Al  t  At  •  ** 

FOR *  1  ■  |  TO  37  i  READ  B  i  At  >  Al  ♦  CHRM  Q  )  ( 

NEIT  i  SPRI TEt C  7  I  ■  At  i  At  •  *• 

FOR  I  ■  I  TO  9  t  READ  0  i  At  •  At  ♦  CHfttt  0  )  i 
NEIT  i  SPRI  TEt  (  I  -)  •  At 

DEFUSR  •  *•••§?  i  DEFUSRJ  •  491 19'  i  POKE  59994*,  19 
FOR  I  •  1  TO  79  i  PRINT  t  NEIT  «  PRINT  •.  Hit'ANV 

Fty’t  POKE  5°ff 7! ,  J  t  POKE  59999!,  3  i  POKE  59999!, 

1  i  PUT  SPRI  TE  i,  C  129,  !H  )  ,  f  i  PUT  8PRITI 
3,  f  9,  79  > 

FOR  I  •  1999  TO  1193  i  REAO  0  I  VPOKE  I,  0  i  NEIT 
D  •  USR/t  0  )  i  IF  VPEEK (  Í973  >  •  7S5  THEN  POKE 
‘ |  clSE  IF  VPEEK (  éf 25  )  ■  1  THEN  POKE  5PP9I!, 

IF  INKEVt  •  ••  THEN  )• 

CLS  i  K  ■  134  i  VPOKE  !•/?,  ¿7i  t  VPOKE  I07J,  127  i 
VPOKE  l#7«,  254  i  VPOKE  1075,  I 77  i  VPOKE  |«7é, 

734  i  VPOKE  1077 ,  I 77  i  VPOKE  197$,  734  i  VPOKE 

IÍ7f,  15  i  FOR  I  •  4144  TO  4175  t  VPOKE  I,  K  i  NEIT  I 
VPOKE  4 J47,  37  I  VPOKE  4i4f,  J7  i  VPOKE  4159,  J2  I 
VPOKE  414#,  J7  i  VPOKE  4177,  37  I  VPOKE  4171,  J7 
FOR  I  •  4174  TO  499#  STEP  37  i  VPOKE  I,  K  i  VPOKE 

I  ♦  3/,  K  i  NEIT  t  FOR  I  >  4949  TO  4979  i  VPOKE 
I,  K  t  NEIT 

FOR  I  ■  6893  TO  4911  i  VPOKE  1,  K  i  NEIT 

VPOKE  9299,  195  i  GOSUt  1999  i  PUT  SPRI TE  9,  (  129, 

147  I  i  PUT  SPRITE  3,  (  II,  II  I 

OR  •  4  i  SP  •  7  i  STR 1 6 <  9  )  ON  i  ON  STRI8  BOSU»  999 
K  ■  4917  i  FOR  1  •  I  TO  II  i  VPOKE  K,  II 4  l  VPOKE 
K  ♦  14,  134  i  K  ■  K  -  II  i  NEIJ  i  FOR  I  •  4445  TO 
4494  i  VPOKE  I,  137  i  VPOKE  1  -  94,  137  I  NEIT 
SPRITE  ON  i  ON  SPRITE  60SUB  799 


POKE  59999?,  4  i  D 
IF  PEEKC  59997!  >  • 
60SUB  299 
60SUB  399 
BOTO  I 99 

J  I  I  L 


USR (  O  > 

9  THEN  VPOKE  4914,  9 


10 


■ 


T~1 — 1 — ''  J, ««'« ■ 

5  m  >  1  '“Í.V'i  >  roa  ' 

cp  ,  POKE  5”*7  •  Kl  •  »  “ 

•  • /n»vv  * 

•  <  »*  -  V.  poke  »***•'«  V,  ,  miuwi 

•  T-‘ .  •  n«  . . . 

íj%  >  ,Ht" ,M  ,  s010  «j»  «•* 

«t1UW  .  .  <  J5  HM  ‘  ,  *  60t0  «»•  tL8t 

5  ■ ; S  i  <  T.l«  *■  \Vr 

5  u’-vr  -¿í 

•V/tUt  «:;»*.  „„  > . » •“'a ,  . 

n  “  •í.5W>«i*V  tS  « u“  “  * 

r.".w  i . 

SOSUl  !•••  •  If  D»  •  »  ™fc 

"t,uM  „ .  1 1  *  •;  i 

ir  D*  •  4  ,  6LSE 

O»  •  *  ‘,4  VPEEM  *»14  *  .HW 

VPOKE  4*24,  #t  ,f  Dft  -  4  THi" 

•ElU**  M  ,  n  H  •  #  J  i 

If  O»  clse  O»  •  •  , 

0*  ’  Sxlí4  VPEE*«  4*24  *  *  *  . 

VPOKE  4*24,  «rp  |  SC  • 

sr.»  ~  •  ”u"  *: ■; :*  - 

\f  1  !#  theV  iV'mo  t  <  •  *  JE»  lf  w  ;  o, 

»”  «•.  slí •* 

I?i5*  »  •  4  ,  t  ,7#  t«»  w  •  4  * 

H^r.  *  «* — . 

r,  .  VPEEM  »*I  J  ’  , 

4  EESE  VPOKE  4*Mo  » 

pttüM  c,,  ,  PM»1  * 

stM.« • » T&  . «»« 

lf  l*“l  MU„  .  ««  •  "l,n  1 

-  t  .  I  to  21  •  "X*' 

S^l  CHM1  II  »  »  tI  4,  é,  4. 

*tlUM  ,  7  J,  I*.  »‘**V  i,«.  *4«-  lU’  ‘  * 

&£££&&  • 

*41*  4,1  '  U  12,  ‘4*  ,l' 

OKI»  I.  *•  4*  V,  V  » 

*414  *.  •«,*».  1  |  ■  ]  P 


fff 


CASETA  DE  TIRO 


Pasen  adelante  y  prueben  su  puntería.  Dispones  de  5 
disparos.  La  puntuación  varia  de  20  centavos  a  un  dólar 
por  pájaro  acertado.  iiSuerteü 


.12 

NCR 

15 

SCNCCN 

I,  2  a  COLON  I,  J9 

l«  19 

1 

KCT  OFF  a  PNINT 

SHOOT IMS  SAllCNV* 

29 

FON  I 

•  J  TO  37  a 

NEAB  0 

a  AS 

• 

AS  ♦  CHNSI 

0 

1 

1 

NEIT  a 

8PNITCSI  9 

)  •  AS 

a  AS 

• 

•  • 

25 

FON  I 

•  1  TO  32  a 

NCAS  0 

a  AS 

• 

AS  ♦  CHNSI 

0 

1 

1 

NCIT  i 

6PN1TCSI  J 

)  •  AS 

a  AS 

m 

•  • 

39 

FON  1 

•  1  TO  37  a 

NCAS  0 

a  AS 

m 

M  ♦  CHJttl 

0 

• 

1 

NCIT  a 

SPNITCSI  7 

1  -  AS 

a  AS 

m 

•  • 

35 

FON  1 

•  J  TO  37  a 

NCAS  0 

a  AS 

m 

M  ♦  CHMI 

0 

1 

1 

NCIT  a 

SPNITCSI  3 

>  •  AS 

a  AS 

m 

•  • 

49 

FON  1 

•  J  T9  37  a 

NCAS  0 

a  AS 

m 

M  ♦  CHftftt 

0 

1 

a 

NCIT  a 

SPNITCSI  4 

)  •  AS 

a  AS 

m 

•• 

45 

FON  I 

•  J  TO  37  a 

NCAS  0 

a  AS 

m 

M  ♦  CMJttt 

0 

1 

i 

NEIT  a 

SPNITCSI  5 

>  •  AS 

a  AS 

m 

•• 

59 

FON  1 

•  1  TO  37  a 

NEAB  0 

a  AS 

m 

M  ♦  CMMC 

0 

) 

a 

NEIT  a 

SPNITCSI  4 

1  •  AS 

a  AS 

m 

•  • 

55 

FON  I 

•  J977  TO  1119  a  NCNO  0 

1 

VPOKC  I,  0 

a 

NCIT 

49 

OEFUSN 

•  49JJ9!  a 

POKC  59997!, 

,  i 

r  a  POKC  59999! 

• 

1  a  POKC  39999!,  J 

1  a  PUT 

SPNITC 

7,  1  755,  19 

> 

•  « 

45 

0  •  USNI  0  1  a  IF 

INKCTS 

<>  •« 

1  THCN  99 

79 

0  •  NNBI  J  >  a  IF 

VPCCKl* 

4977 

1 

•  9  THCN  VPOKC 

4927 

17  CISC  VPOKC  4977,  9 

75 

FON  1 

•  J  TO  179  a 

NCIT  a 

SOTO  45 

S9 

OH  •  - 

I 

199 

CIS  a 

VPOKC  4927, 

9  a  PUT  SPNITC  7,  1  755, 

34 

1 

119 


1 29 


129 


311 

229 

339 

339 

349 

399 

349 


-  379 

499 


“ 


9,  (  199,  14  1  i  9  i  PUT  SPNITC  4,  I  9,  44  ),  4  a 
PUT  SPRITi  3 ,  t  |f5t  44  I  ,  4 

409  I  •  4143  10  4794  i  VPOKC  I,  73  i  NCIT  i  F09 
I  •  4774  T0  4747  i  VPOKC  I ,  7 J  l  NCIT  a  F09  1  • 

479 J  10  4994  •  VPOKC  1 ,  73  l  NCIT 

FON  I  •  4914  10  4947  i  VPOKC  f,  139  l  NCIT  l  FON 

I  -  4494  TO  4794  STCP  37  a  FON  J  ■  9  TO  7  i  VPOKC 
I  ♦  3,  134  i  VPOKC  1  ♦  J  ♦  74,  134  i  NCIT  i  NCIT 
VPOKC  41,44,  74  a  VPOKC  4779,  74  i  VPOKC  4174,  74  l 

VPOKC  4797,  74  i  VPOKC  4175,  75  l  VPOKC  4743,  73  I 

VPOKC  4797,  77  i  VPOKC  4997,  77 


419 

439 

459 

445 

479 

472 

475 

477 

419 

493 

495 

499 

599 


VPOKC  4749, 
VPOKC  4735, 
STNIS I  9  1 


77  i  VPOKC  4775,  77  i  VPOKC  4793,  13 3  l 
134  i  VPOKC  4747,  137 
ON  i  ON  BTKI9  909UB  799 


60SUB  999 

60SUB  399  •  60SU9  359  l  60SU9  499 

1F  OH  >  •  9  THCN  809U9  459 

1F  UN  •  I  THCN  80SUB  999  a  UN  •  9 


80T0  799 

POKC  59999!,  7  a  POKC  59997!,  9  a  1F  NN9I  I  I  < 

.5  THCN  POKC  59999!,  f  ElSE  POKC  59999!,  J 
IF  VPCCKl  4913  1  >  194  THCN  POKC  59999!,  i  ElSE 
IF  VPCCKl  4913  1  <  45  THCN  POKC  59999!,  J 
D  •  USN<  D  1 

I F  NNDI  I  )  <  .5  THCN  VPOKC  4914,  4  CIBC  VPOKC  4914,9 
NCTONN  * 

POKC  59999!,  13  a  POKC  59997!,  7  a  KJ  •  VPCCKl  4971  I 
i  VPOKC  4977,  VPCCKl  4974  1  a  VPOKC  4974,  K! 

POKC  59999!,  I  a  B  •  USNI  •  )  a  POKC  59997!,  3  a 
B  •  USNI  9  I 
NCTUNN 

C7  •  I  C7  ♦  I  I  N09  7  i  POKC  59997!,  4a  IF  C7  • 

9  THCN  KJ  •  VPCCKl  4939  1  a  VPOKC  4939,  VPCCKl  4934  I 
a  VPOKC  4934,  KJ 

POKC  59999!,  4  a  POKC  39999!,  3  a  D  •  USNI  B  )  a 
POKC  59997!,  5  a  B  •  USNI  B  I 
NCTUNN 

ONI  BH  ♦  J  1  SOTO  443,  449,  479,  473,  499,  495 
PUT  SPNITC  9,  I  J 99,  J4  I  a  SOTO  499 
VPOKC  4977,  9  a  VPOKC  4974,  17 
SOTO  499 

VPOKC  4977,  9  a  VPOKC  4974,  17 
SOTO  499 

VPOKC  4939,  J4  a  VPOKC  4934,  79 
SOTO  499 

VPOKC  4939,  J4  a  VPOKC  4934,  79 
BH  •  -  |  i  NCTUNN 

Pl4f  */59«J799tJ9n74rJ9n74r39«i74r J9«i74r J9fi74r39n74r J9n7 
4*a  ONI  BH  ♦  I  1  SOTO  593,  599,  5J9,  313,  379,  575 

N  •  H  ♦  |  a  VPOKC  4914,  74  a  FON  17  •  J  TO  599  a  NCIT 
VPOKC  4914,  9  a  SOTO  549 

"'"♦.Ja  VPOKC  4977,  74  a  FON 
VPOKC  4977,  9  a  SOTO  549 

H  ■  N  ♦  .5  a  VPOKC  4974,  74  a  FON  17  •  J  TO  599  a  NCIT 
VPOKC  4924,  17  a  SOTO  549 

N  ■  N  ♦  .7  ,  VPOKC  4939,  74  a  FON 
VPOKC  4939,  14  a  SOTO  549 
VPOKC  4934,  74  a  R  •  R  ♦  .7  a  FON 
VPOKC  4934,  79 

UN  •  J  a  BTNISf  9  I  ON  a  NCTyNa 

STNISI  9  I  ON  i  vrOKC  4191,  JJt  g  f 
199  i  NEIT  i  VPOKC  4191.  23 


17  ■  J  TO  599  a  NCIT 


17  •  J  T9  599  a  NCIT 
17  •  J  T9  599  a  NCIT 


II  •  J  TO 


621  un  •  1  I  RETURN 


709 

STR16  <  9  )  OFF 

*  PlAY 

*  1  é>  4»6Gs8r\27 

•i  NS 

l  • 

NS  ♦  1 

719 

IF  A8S  (  VPEEK ( 
60T0  509 

¿979 

> 

-  114 

) 

< 

2 

THEN 

0N 

• 

4  i 

729 

IF  ABS (  VPEEK  I 
60T0  S00 

¿972 

) 

-  114 

> 

< 

2 

THEN 

OH 

• 

5  t 

é 

739 

IF  ABS (  VPEEK I 
60T0  S00 

¿97Í 

) 

-  114 

) 

< 

2 

THEN 

OH 

• 

7  i 

749 

IF  ABS (  VPEEK ( 
60T0  500 

¿975 

) 

-  114 

> 

< 

2 

THEN 

OH 

• 

2  i 

739 

IF  ABS (  VPEEK  ( 

¿912 

) 

-  114 

) 

< 

2 

THEN 

OH 

A 

0  i 

GOTO  588 
76*  60T0  608 


sai  ir  R  >  ■  I  THEN  A*  •  'Vou  Havai  **  EL8E  A*  •  'Vou  Oaat 

*• 

BBS  IF  H  <  6  THEN  13  ■  1NT(  -  H  »  t  14  ■  -  I  N  ♦  13  ) 

EISE  13  *  I  NT (  Hl  t  14  «  n  -  13 

8S7  FOR  1  -  1  TO  7?  i  PRINT  i  NEXT  i  PR1NT  Al  |  i  PRINT 

USIN6  •••**»  13  ;  l  PRINT  USIN6  Ml'|  14  i  PRINT 

CHRK  II  I  | 

811  IF  NS  >  4  THEN  85 8  EISE  RETURN 

8Sa  PLAV  *118«14a?888i»38n48n?8n?7*i  STR16I  8  I  OFF  l 

FOR  l  »  1  TO  23  t  PRINT  i  NEXT  i  PRINT  'Another  5  Shot» 
?  I Y / N ) "  j  CHRK  II  I  | 

853  XI  •  INKEYI  i  IF  XI  -  ••  THEN  835  EISE  IF  XI  O 

*Y*  ANO  XI  O  *y*  ANO  XI  O  *N*  ANO  XI  O  *n*  THEN853 

868  IF  II  *  *N*  OR  XI  >  *n*  THEN  908 
863  H  *  H  -  1  i  NS  •  8  i  60SUB  888 

878  FOR  I  *  «88?  TO  «118  l  VPOKE  I,  37  l  NEXT  l  STRISI  81 

0N  t  RETURN 

988  SCREEN  1  i  IF  H  <  8  THEN  PRINT  ’YOU  0NEil*|  l  PRINT 

USIN6  *118.18*1  -  H  t  60T0  998 
928  PRINT  *V0U  HAVE  NON:  l*|  i  PRINT  US1N6  *88S.88*| 

H  i  GOTO  998 

998  IF  INKEYI  O  **  THEN  END  EISE  998 

18008  DATA  1 78,  «4,  9«,  54,  78,  13,  7,  3,  I,  2,  8,  8, 

8,  8,  8,  8,  I,  7,  i,  78,  5«,  174,  224,  192,  17», 

44,  8,  8,  8,  8,  8,  8 

IB818  DATA  8,  8,  8,  8,  8,  1,  7,  15,  75,  58,  37,  32,  37, 

8,  8,  8,  8,  8,  8,  8,  8,  178,  72 4,  748,  15?,  74, 

4,  4,  4,  8,  8,  8 

18828  DATA  8,  8,  8,  8,  3,  14,  74,  12,  4,  115,  755,  43, 

7,  8,  8,  8,  8,  8,  8,  8,  75?,  37,  44,  37,  24»,  755, 

755,  754,  75?,  748,  8,  8 

10838  DATA  8,  8,  8,  8,  1,  115,  755,  43,  3,  7,  7,  3,  8, 

8,  8,  8,  8,  8,  8,  8,  748,  754,  755<  755,  25?,  748, 

748,  248,  75?,  4?,  15,  8 

18848  DATA  8,  8,  8,  8,  «3,  4,  7,  4,  43,  755,’  255,  177, 

43,  31,  »,  8,  8,  8,  8,  8,  197,  117,  24,  48,  224, 

784,  255,  757,  774,  8,  8,  8 

18838  DATA  8,  8,  8,  8,  31,  127,  255,  755,  43,  31,  31, 

31,  43,  124,  748,  8,  8,  8,  8,  8,  12»,  784,  255, 

75?,  192,  224,  22 4,  192,  8,  8,  8,  8 
18868  DATA  138,  788,  94,  49,  75,  45,  39,  75,  19,  5,  44, 

4,  45,  144,  4,  34,  1,  35,  4,  148,  71»,  177,  724, 

781,  194,  144,  44,  37,  4,  18,  128,  1 

18188  DATA  178,  85,  178,  85,  178,  85,  178,  85 

18182  DATA  94,  3?,  37,  37,  32,  32,  37,  32 

18184  DATA  37,  32,  48,  48,  48,  48,  117,  54 

18106  DATA  48,  54,  54,  54,  48,  48,  48,  48 

.10108  DATA  8,  8,  74,  34,  8?,  133,  44,  18 

18118  DATA  178,  85,  178,  85,  8,  8,  8,  8 

I  I  I  AHI  I  Ai  I  i  mmaí  a  w  _ 


DRAGSTER 


i 


En  este  juego  debes  conducir  tu  dragster  lo  más  lejos 
posible  antes  de  estrellarte  contra  las  vallas  o  patines  con 
las  manchas  de  aceite  de  la  pista.  Puedes  variar  la 
velocidad  de  tu  bólido  modificando  el  valor  9  en  la  linea 
97. 
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SIMMON 


Este  juego  consiste  en  recordar  el  código  de  colores  y 
sonidos.  La  dificultad  aumenta  cada  vez  que  superamos 
un  nivel.  El  ordenador  mostrará  un  código,  y  el  jugador 
deberá  repetirlo.  Para  ello  se  utilizan  las  siguientes  teclas 


Rojo  = 


Azul  = 

Gris  = 
Verde  = 


****************** 

♦  SIMMON  * 

*  * 

*  E.  L.  TORRALBA  * 

****************** 

PRINT'Tl"  POKE53280/0:POKE53281 /0:PRINT" ESPERE  UN  MOMENTO 

V=53248 : S*54272 : Z* 1 : NN« 1 

DIMV<30> 

F0RLsST0S+24 : POKEL / 0  s NEXT 
POKES+24/ 15 

REM  ****  RUTINA  DE  SPRITES  **** 

POKEV+21 /255 
FORI I=192T0197 

FOR I  «0TO62 :  READQ :  POKE 1 1  *64-*- I  /  Q  NEXT 
NEXT 

POKE2040/ 192 
POKE204 1>193 
POKE2042/ 194 
POKE2043/ 195 
POKE2046 / 1 96 
POKE2047/ 197 

POKE2044, 196;POKE2045/ 197 
GOSUB2000 

POKEV+23/ 15 • POKEV+29/ 15 
POKE  V  /  88 :  POKE  V-»- 1  /  72 
POKEV+2/ 143  •  P0KEV43/  72 
POKEV+4/  143P0KEV+5/ 122 
P0KEV+6/88P0KEV+7/ 122 

POKEV+8  /  2 1 5 :  POKE V+9 , 84  s  POKE  V-*- 10/240:  POKEV+ 11/84 
POKE  V«-  12/217:  POKE 1 3  /  86  POKE V-f  14/242:  POKEV+ 15/86 
REM  ****  COLORES  **** 

POKEV+39/2 

POKEVM0/6  g¡ 

POKEV+41  / 1 1 
POKEV+42/5 

POKE V+43 / 6 • POKEV+44 / 6 


286 


POKEV+46 


POKEV+45,14 
OOSIIB 1 000 
FORTT-0TO1000 : NEXT 
REM 

I FZ>30THEN620 
FORI-1TOZ 

X» I NT  <  RND  < 1 ) *4 ) ♦ 1 
V< I )-X 

I FX*  1 THENHF- 1 7 :  LF-37 :  POKEV+39 ,10:  OOSUB 1 500 
I FX-2THENHF*  1 9 :  LF-63  s  PÜKE V+40 ,14:  GOSUB 1 500 
I FX-3THENHF-2 1 :  LF- 1 54  POKE V*4 1,12-  GOSUB  1 500 
I  FX-4THENHF-22 :  LF-227 :  POKE V+42 , 1 3 :  GOSUB  1 500 
NEXT 

REM  .... 

1*0  - 
I - I ♦ 1 : I F I >ZTHENZ-Z* 1 : GOSUB 1 400  GOTO320 
GETR$ : I FR$» H  M  THEN460 

I  FR*  -  "  R  M  THENR*  1 :  OOSUB550  HF-  1 7 :  LF*37 :  POKE V+39 ,10:  GOSUB  1 500  G0T0455 
I  FRf  «  H R " THENR*2 :  GOSUB550  HF-  1 9 :  LF-63 :  POKE V+40 ,14:  GOSUB  1 500  :  GOT 0455 
I  FRt- M G M  THENR-3 :  OOSUB550 :  HF-2 1 :  LF- 1 54  :  POKE V+4 1 , 1 2 :  GOSUB  1 500 :  G0T0455 
I  FR$-  "  V  "  THENR-4 :  GOSUB550 :  HF-22 :  LF-227 :  POKEV+42, 13 :  GOSUB  1500  •  G0T0455 
GOT 0460 
REM 

IFV( I >«RTHENRETURN 
HF-6 : LF-206 : H-750 
FR-19 : CR-23 
GOSUB 1800 
PRINTHflflFRLLRDO." 

GOSUB 1500 

FR-2 1 : CR-7 : OOSUB 1 800 
PRINT"SFRRR  JUGRR  OTRR  VEZ  CS/N]" 

GETBf  •*  I  FBf- "  M THEN640 
IFBf-"N"THENEND 
GOSUB 1 800  PRI NT M 


FR-19* CR-23 : GOSUB 1 800  PR I NT " 

FR- 1 7 : GOSUB 1 800 : PRI NT M 

FR- 1 3 : CR-27 : GOSUB 1 800 : PR I NT M  ffll w : Z- 1 : NN*0 : GOTO320 
PRI  NT”  ni" 


PR I NT  " 
PRI NT" 
PRI NT" 
PR I NT " 
PR I NT " 
PRI NT" 
PRI NT" 
PRI NT" 
PRI NT" 
PR I NT " 
PRI NT" 
PRI NT" 
PRI NT" 
PRI NT" 
PRI NT" 
PRI NT" 
PRINT" 
PR I NT " 
PR I NT " 
PRI NT" 


\  / 


M 


II 


NIVEL 


,  •• 


¡mojo  RinaFzuL 

-  - +■ - < 


RUI 


II 


INERD  VUI HjRIS  GUI  I 


j. 


/  Si 


✓  »' 


FR*13:  CR-27 : GOSUB  1 800  PR I NT " Sil " 
RETURN 

REM  ****  RUT I NR  DE  RCIERTO  **** 

FR- 1 7 : CR-23 

GOSUB 1 800 

PR  I  NT  "  UJRCERTRDO  " 

FORT-0TO500 : NEXT 
GOSUB 1 800 


I 


17 


II 


NN«NN+ l 

FR=13CR*26 

OOSUB 1 800  PRINT  ”  IT  NN 

RETURN  ;  • 

REM  *♦**  RUTINR  SONIDOS  **** 

POKES+5 , 1 44  POKES+6 , 243 
POKES+l.HF  POKES.LF 

PQKES+4/ 17  ' 

F0RTT=1T0258+H  NEXT 

POKES+4, 16 

FORTT=1TO150  NEXT 

POKEV+39,2  POKEV+40,6 

P0KEV-»*4 1 , 1 1 :  P0KEV-*-4^,  5 :  H=0 

RETURN  '  '  *J 

REM  ***♦  .  ,  . 

P0KE781 / FR : P0KE782/ CR  ;  , 

POKE 783,0  SVS65520 
RETURN 

REM  ****  PRESENTRCION  **** 

POKEV+23, 255 :  POKEV+29, 255 
POKEV+43, 6 : POKEV+44, 6 
P0KEV*f45, 13-P0KEVM6, 13 
POKEV+8 ,133  =  POKEV+9, 90  * 

POKEV+ 10,183: POKE V+ 11,98 
POKEV+12, 113:POKEV+13,70 
POKE  1 4 , 1 63 :  POKE  V-^  1 5 , 70 

pr i nt " vmmmmmMEL  juego  consiste  en  recordrr  el  codigom 

PRINT” DE  COLORES  V  SONIDOS.” 

PRINT-LR  DIFICULTRD  RUMENTR  CRDR  VEZ  QUE  SU-” 

PR I NT "PERRMOS  UN  NIVEL.” 

PRINT" DESPUES  DE  QUE  EL  ORDENRDOR  HR  MOSTRRDO 
PRINT" SU  CODIGO,  EL  JUGRDOR  DEBE  REPETIRLO.” 

PRINT”PRRR  ELLO  SE  UTILIZRN  LRS  SIGUIENTES” 

PRINT”LETRRS: ” 

PRINT”  ROJO  ■>  R” 

PRINT”  RZUL  «>  R” 

PRINT”  GRIS  »>  G” 

PRINT”  VERDE  •>  V” 

FORT-0TO7008 : NEXT 
RETURN 

REM  ****  DATAS  DE  SPRITES  **** 

DflTR0, 0,31 ,0,0, 235, 0,3,235,0, 15,233,0.31,255,0,63,255,0, 127,255 
DfiTH0, 253, 255, 1 , 235, 255, 3, 235, 253, 3, 253, 255, 7, 253, 253, 7, 235, 253, 15,255 
DATA 1 5 , 255 , 255 ,13, 255, 255, 31, 255 ,233,31,235, 235 ,31, 235 , 255 
DRTA3 1 , 235 , 233 , 3 1 , 233 , 235 

DRTR240,0, 0, 253, 0, 0, 255, 192,0  255, 240, 0,233, 240, 0,255, 232, 0,255, 234,0 
DRTR255, 253, 0,235, 255, 128, 235, 233, 192, 253, 233- 192,235,255.224,233,255,; 

DRTR253 , 255 , 240 , 253 , 255 , 240 ,235,233. 240 , 235 , 235 . 248 , 233 , 233 , 248 , 233 , 23! 
DRTR255 ,255,248, 255 , 235 , 248 

DRTR253 , 255 , 248 , 255 , 255 , 248 .253,253-248-235,255,248,233,255- 248 
DRTR235 , 235 , 240 , 233 , 235 . 240 -  253 , 253 , 2*0  -  233 . 233 , 224 , 235 -  253 , 224 

DRTR253. 255, 192, 253, 253, 192, 233, 235. 128-233,235-0-233.254,0,233,252,0 
DRTR255, 248, 0,233, 240. 0,233, 192- 0-255,0  0,240,0,0 
DRTR31, 233, 233, 31, 255, 255, 31, 233- 233, 31  255  233, 31 . 2», 235. 13,253,235 
DRTA15, 255, 235, 15, 255. 233, 7, 253, 235, 7. 255  233  3,233  233,3,233,253, 1,25! 
DRTR0, 255, 255,0, 127, 255, 0.63, 235-0. 31, 255  0  15  255  0  3  235  0,0,255,0,0 
DATA0, 0, 0, 7 , 246, 102, 13,246,235, 12,6,219. 12.6-219  12  6  219, 12,5,219 
DATA 12, 6, 21 9, 12,6, 193, 15,230, 195,7,246. 195  e  54  193, 0. 34, 193,0,54, 193 
DATA0, 54, 193,0,54, 193,0,54, 195,0. 54, 193, 15  246  195  !5  230-195.0,0,0 
DATA0, 0,0, 102, 52, 195, 233, 126,193,219,102.2 27  219  102  22?  219. 102, 227 
DATA219, 102, 243, 219, 102, 243, 195, 102, 243, 195. 102  219  193.ie2.219 
DATA195, 102,219, 195, 102,207, 195- 182,207, 195  102  207  195  102  199 
DATA195, 102, 199, 195, 102, 199, 193, 126, 193, 193,32. 195  i  i  i 
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Características  principales: 

Sistema  standard  MSX.  Memoria  de  64  K 
RAM,  32  K  ROM  y  1 6  K  de  pantalla.  1 6  co¬ 
lores.  73  teclas.  32  sprites.  Sistema  mul¬ 
ticolor.  64  x  48  bloques.  Sonido:  8  octa¬ 
vas  tres  acordes.  Conexiones  para:  caserío, 
presora,  2  mandos  y  futuras  expansiones- 
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El  sistema 


ndard  utilizado  umversalmente  que  permite  disponer  de  una  gran  variedad  de  programas  y  accesorios  compatibles  entre  si. 


Programa  Basic 

LEY  DE  NEWTON 


Comentario  Soft 


OESTE 


El  juego  consiste  en  el  enfrentamiento  entre  dos 
pistoleros. 

El  de  la  derecha,  que  lleva  sombrero  y  pañuelo  negro,  se 
maneja  con  el  joystick  en  el  port  2. 

El  de  la  izquierda,  que  lleva  sombrero  y  pañuelo  azul,  se 
puede  manejar  con  el  joystick  en  el  port  1  o  con  las 
siguientes  teclas: 


«Q»  =  subir 
«A»  =  bajas 
«W»  =  disparo 


1  REM  **********  OESTE  ************ 

2  REM  ******  JfiVIER  LOPEZ  ********* 

3  REM  ***************************** 

5  PR I NT "  3”  POKE53280 , 0 : P0KE5328 1,13: POKE650 , 1 28 

PR I NT " -  ***  ESPERE!  SUN!  COMENTO»  ***M 
GOTO5000 

PR  I  NT  M  3"  :  FORÑ=0TO30  s  POKE  1 024+R ,  8  P0KE55296+R  ,13:  NEXT 
FORR=800TO990  POKE 1 024+R, 8  P0KE55296+R,  1 3 : NEXT 
PRINT"!  í, - 


5QÜ0 


Snilfll  " 

•Sí  ■l.llllOi-i-ilSU" 


II9EL  JIJEGO  CONSISTE 
USEN  MRTRR  RL  VRQUERO 
■ISCONTRRRIO  RNTES  DE 
MGtUE  SE  RGOTE  EL  CRR» 
«3DRD0R . PEPO  DEBES  TE 
MUER  EN  CUENTR  QUE 
MNO  PUEDE  CHOCRR  NI 
«SCON  LR  CRRRETR  NI 
■ISCON  LOS  CRCTUS. 

•Tí 


3H-H-HH1ÍI  M 


■■■■KL  i 

SflH-H-HHiíl 


■ISDESTEllíl 
- 'SU" 


PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 
PRINT"  íl 

PRINT"  í' - f* 

G0SUB4 1 00 

CO*  1 :  FR*20  •*  GOSUB4500  .  • 

PRINT"S  NI II II lili  ■IIIIIII" 

POKE2040 ,216:  POKE204 1 , 2 1 7  •*  POKE2042 ,218:  POKE2043 ,221:  POKE2044 , 22 1 
POKEV+39, 6 :  POKEV+40, 0  POKEV+41 , 15 :  POKEV+42, 0  •'  POKEV+43,0 
V* 1 00 : V 1 « 1 00 : I D=55 : DI 1=175: RV*0  VR=0 : N 1 «802  N=8 1 7  OC»0 : CHO*0 
FORT=255TO0STEP-3. 5 
JW-PEEK  < 5632 1 > : JV*PEEK< 56320) 

IFJW*255THEN120 
IF  JW«254THENV*V-2. 2  s GOTO 130 
IFJW*253THENV*V+2. 2  GOTO130 

I  F.JW=*239RNDVR<  1 7RNDN 1  <808THENRL*V :  VR«  1 7 :  N 1  =N  1  ♦  1  :  GOTO  1 30 
GETRf  :  POKE  1 98 , 0 : 1 FRS*  "  R  "  THENY* V+2 . 2  GOTO  1 30 
I FR$= " Q  » THENV* V-2 . 2 : GOTO 1 30 

I FR$«  ••  w " RNDVR<  1 7RNDN 1  <808THENRL»V :  VR«  1 7 :  N 1  «N 1  ♦  1  :  GOTO  1 30 
I F  JV» 1 27THEN 1 52 
I F J V- 1 26THENV 1 « Y 1 -2 . 2 : GOTO 1 52 
I F  JV=  1 25THENV 1  =' V 1  +2 . 2  GOTO  1 52 
I F JV* 1 1 1 RNDRVC 1 7RNDN<823THENLR» Y 1  RV= 1 7 : N=N+ 1 
I FV<75THENV=75 
I FV> 1 70THENV* 1 70 
IFV1>170THENV1*170 
I FV 1 <75THENV 1 =75 


165  ID=ID+VR: DI 1=DI 1-RV 

170  POKE 1024+N 1,8  P0KE55296-N1 , 13 

1 73  POKE 1 024+N ,  8 :  P0KE55296+N ,  1 3 

175  POKE V/  55  POKEV+1 ,  V :  POKEV+2, 175 :  POKEV+3, VI 

1 80  POKEV+6 ,  ID: R0KEV+7 , RL s POKEV+8  DI1 : POKEV+9 , LR 

1 90  POKEV+27 , 7 :  POKEV+23 , 4  s  POKEV+4 ,107:  ROKEV+5 ,  T :  PGKEV+29 , 4 

200  I F I D> 1 95THENVR=0 • I D*55 : RL*0 

210  I FD I 1 <40THENRV*0  DI1*175: LR*0 

220  OC=PEEK< 53278)  * * 

230  CHO*PEEK< 53279) 

235  IFOC*0THEN300 
240  I  FOCO  1 0THEN250 

242  RL*0FOPTM=0TO300  NEXT  POKE204 1,220 

245  FR* 1 0 :  C0*7 :  GOSUB4500  PR  I  NT "  3B3RNR  EL  RZUL " :  POKEV+6 , 0  s  POKEV+8 ,  0 
247  FORT V=0T 05000  NEXT  POKEV ,  0 : POKEV+  11,0  POKEV+  13,0  GOTO420 
250  I  FOCO  1 7THEN260 

252  LR*0  FORTf1*0TO300 :  NEXT  POKE2040, 219 

255  FR* 1 0 : C0*7 :  GOSUB4500  PR I NT " flfcGRNR  EL  NEGRO"  :  POKEV+6, 0  POKEV+8, 0 

257  FORTV»0TO5000  NEXT :  POKEV,  0 : POKEV+  11,0  POKEV+  13,0:  OOTO420 

260  IFOC=20THENLR*0 : GOTO400 

270  IFOC*12THENRL*0  GOTO400 

300  REM  RUT I NR  DE  CHOQUE 

310  P 1  =  I  NT  <  <  V-32  )  /8  >  4-40 ;  P3*  I  NT  <  X-8  ) /8 :  P 1  *P  1 +P3 :  PX*P  1  +  1 024 

320  I F CHO*20ORCHO= 1 6THENLR*0 

330  I FCHO* 1 2ORCHO*42THENRL=0 

340  I FN 1 *808RNDN*823RND I D-55RNDD 11*1 75THEN4050 

400  NEXT 

410  G0T097 

420  C0=4 : FR= 1 0 : GOSUB4500  PR I NT "  " : G0T072 

4050  C0*4 : FR= 1 0  OOSUB4500 : PR I NT "  aFlGOTRDO  EL  CRRGRDOR " : FORT*0TO4000  NEXT 

4060  GOTO420 

4100  REM  ****  PRESENTRCION  ****** 

4 1 05  POKEV+42 , 0 :  POKE V+43 , 0 :  POKE2043 , 222 :  POKE2044 , 223 :  RC*20 1 
4110  FORCR*40TO108 : POKEV+6 , CR : POKEV+7, 90 • RC *RC-1 ; POKEV+8 , RC : POKEV+9, 90  s NEXT 
4115  FORK*204TO680STEP40  FORN*KTOK+  1 8 : P0KE55296+N , 6 : NEXT : NEXT 
4120  GETCf:  IFCM""THEN4120 

4 1 30  FORK=204TO680STEP40 : FORN*KTOK+ 1 8 : POKE 1 024+N , 32 : NEXT : NEXT 


4200  C0*7 : FR=5 : GOSUB4500  PRINT"HRBC  RBC" 

42 1 0  FR*6 : GOSUB4500  PR I NT "  MDEF  DEF " 

4220  FR=7 :  GOSUB4500  PR I NT " «  G  .G" 

4230  FR* 1 3 : GOSUB4500 : PR I NT "  IflBC  RBC " 

4240  FR* 1 4 : GOSUB4500  PR I NT "  «DEF  DEF " 

4250  FR* 1 5  GOSUB4500 : PR I NT " «  G  G" 

4300  FR*20CO*1 


4500  POKE 781 , FR  POKE 782, CO : P0KE783, 0 : SVS65520  RETURN 
4990  RETURN 

5000  REM  *****  RUT I NR  CRRRCTERES  ***** 

50 10  FOR I «928T0 1001: RERDQ : POKE I , Q : NEXT 
5020  PR I NT CHR*  <142) 

5030  P0KE52 , 56  P0KE56 , 56 : CLR 

5040  FOR I * 1 T 073 : RERDQ : NEXT 

5050  POKE 56 334 , PEEK ( 56334 )RND254 

5060  POKE 1 , PEEK  < 1 ) RND25 1 

5078  SVS928 

5080  POKE 1 , PEEK  < 1 >  0R4 

5090  P0KE56334 , PEEK  <  56334 )0R 1 

5 1 08  P0KE53 272 , < PEEK  < 53272  >  RND248  >+14 

5110  FORCRR*1TO20 

5120  FORBVTE=0TO7 : RERDNUM 

5 1 30  POKE 1 4336+ < 8*CRR ) +BVTE , NUM  NEXT  NEXT 

5140  REM  SPRITES 

5 1 50  V*53248 : POKEV+2 1 ,31 : P0KE53285 , 8 : POKE 5 3286 • 9  PC*  E5  <276 , 7 


5 1 6Ü  F0RR=2 1  6T 0223 

5 1 70  FOR I =0TO62  REhDH  P0KER464+ I ,  H  NEXT NEXT 
100O0  GOTO 15 

20000  REM  DATAS  RUT  I NA  CARACTERES 

2««lñ  DATA169-0. 141 .57.3/ 169-208..  141/56.3, 169.0. 141,53,3, 169,56- 141,52,3 
20020  DOTA 173,57,3, 133,251,173,56.3, 133, 252 , 1 73 , 53, 3, 133 , 253 , 1 73 , 52 ,3,1 33 , 254 
20030  DAT H 1 60, 0 , 177, 251 , 145,253,238, 57, 3, 238,53, 3, 169,0, 205 -57,3, 208 .217, 238 
20040  DA T056 .3.238,52,3, 169,215, 205 , 56,3. 208 , 204 , 96 

20050  REM  DATAS  DE  CARACTERES 
20060  DATA0, 0,0, 0,0, 0,0, 8 
20070  DAT A0 , 0 , 0 , 28 , 62 , 62 , 62 , 62 
20030  DAT A0 ,0,0, 0,0, 32 , 112, 112 

20090  DAT A28 ,28,28,28,31,31,7,0 
20 1 00  DAT A62 .62,63 , 63 , 63 , 254  -  254 , 254 
20110  DATA 1 1 2 , 240 , 224 , 192,0,0,0,0 
20120  DATA62 ■ 62,62,62, 62,62,0,0 
20 1 30  DAT A255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 
20140  DATA0, 28, 62,62,62, 62,0,62 

20150  DATA0, 0, 0, 0, 3, 7, 15, 15,0,0,0,0, 192,224,240,240, 15, 15,7,3,0,0,0,0 
20160  DATA240, 240, 224, 192,0,0,0^0 
20170  DATAIS, 15, 15, 15, 15, 15, 15, 15 
20180  DATA255, 255, 255, 255,0,0,0, 0 
20190  DATA3 1,31, 31, 3 1,3 1,31, 31, 31 
20200  DATA255 , 255 , 255 , 255 , 252 , 248 , 240 , 240 
202 1 0  DAT A240 , 240 , 248 , 252 , 255 , 255 , 255 , 255 
20220  DAT A255 , 255 , 255 , 255 , 63 , 3 1 , 3 1 . 3 1 
20230  DAT A3 1 , 3 1 , 3 1 , 63 , 255 , 255 , 255 , 255 
20240  REM  DATAS  VAQUERO  IZQ. 

20250  DATA0, 168,0,0,84,0,2, 170,0,0,220,0,0,213,0,0, 168,0,0,232,0,0, 120,0,3 
20260  DATA124, 240, 3, 85, 252, 0,212, 64, 0,252, 192,0,84,0,0,252,0,0,252,0,0,252,0,0 
20270  DATA127, 0,0, 95,0, 1,79,0, 1, 12,0,2, 138,0 
20280  REM  DATAS  VAQUERO  DEREC. 

20290  DATA0, 0,0, 0,42, 0,0, 42, 0,0, 63, 0,0, 170, 128,0,55,0,0,87,0,0,42,0,0,41,0,0 
20300  DATA45, 0,42, 85,0, 10,87,0,2,63,0,0,21,0,0,63,0,0,63,0,0,253,0,0,245 
20310  DATA0, 0,241, 64- 0,48, 64, 0,162, 128 
20320  REM  DATAS  DILIGENCIA 

20330  DATA0, 0, 0,3, 255 ■ 0, 13,221,192, 15,255, 192, 15, 171,192, 14, 170, 192, 14,170, 192 
20340  DATA15,171, 192, 15,255,192,5,85,64.199,255,76, 199,255,76,207,255,204,207 
20*50  DATA255 , 204 . 247 , 255 ,124,247, 255 ,124. 205 , 253 , 204 , 207 , 255 ,204,192,0,12,192 
20360  DATA0, 12,0,0,0 
20370  REM  DATAS  VAQUERO  IZQ.  MUERTO 

20380  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 0,0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0  0, 48, 0,0 
20390  DAT A60 ,0,8,4,48,33,5, 252 • 237 , 173,252,229, 181  204,229, 151,204,239, 155,5,32 
20400  DAT A0 , 0 , 128, 0,0, 0,0 .0,0, 0,0 .0,0.0 
20410  REM  DATAS  VAQUERO  DER.  MUERTO 

20420  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0- 0,0,0 

20430  DATA240, 0, 0, 48, 32,3, 16,72,79, 106, 122, 127,90,90, 127,214,90,115,246,250,0 

20440  DATA©, 8, 0,0, 2, 0,0, 0,0, 0,0, 0,0,0 
20450  REM  DATAS  DISPARO 

20460  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

20470  DATA0.60. 0,0. 60,0 ,0,0,0,0,0.0. 0,0-0 •0.0.0/0/0.0.0/0,0z0z0,0.0/0'0/0,0/0 

20480  DAT A0, 0,0 

20490  REM  DATAS  PRESENTACION 

20500  DATA0, 0,0, 0,0, 0,0, 0,0, 7, 224, 0,8, 16,0,24,24,0,36,36,0,34,68,0 
20510  DATA65, 130,0, 127,254,0,65, 130, 124,34,68,68,36,36, 124,24.24,64,8. 16,64 
20520  DATA7.224, 124,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
20530  REM  DATAS  PRESENTACION 

20540  DATA0, 0,0,0, 0,0. .0,0, 0,0,0, 0 ,0,0 ,0,0. 0,0, 0,0,0,  1,0,0,  1,0,0,  1 ,  128,0 
20550  DATA249, 15, 128, 129,8, 128,249, 15, 128,9.8,0,9,8,0,24*, 15- 128, 00, 0.000 
20560  DATA0, 0.0, 0,0,0 

READV. 
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ESTADISTICA 

• 

E.  L.  Torra  Ib  a 

1 

Estamos  seguros  que  cualquier  estudiante  que  en  este 
momento  ojee  esta  revista,  estará  empezando  a  segregar 
saliva,  solo  con  el  titulo  de  este  programa.  No  más 
cálculos,  no  mas  horas  de  lápiz  y  papel...  ¿Para  qué 
queremos  el  ordenador,  sino  para  mejorar  nuestras 
condiciones  de  vida?  Este  es  un  programa  de  utilidad  de 
los  que  realmente  merece  la  pena  teclearse,  al  menos  si 
andas  «enrollao»  en  esto  de  la  estadística. 

Como  es  costumbre  en  nuestros  programas,  este  también 
se  explica  solo. 


REM  ***************** 


ESTRDISTICR 

POR 

TORRRLBR 


REM 
REM 

REM  ■■■■■■■i 

REM  ***************** 

PEM 
PRINT 


P0KE53272/ 
100  P0KE53281 
105  PRINT" 


PEM  PONE  LETRRS 
POKE53280 


M I NUSCULR 


RRR 

DD 

i 

SSS 

TTT 

I 

o 

o 

o 

RRR 

R 

R 

D  D 

I 

s  • 

T 

I 

c 

R 

R 

RRR 

D  D 

I 

SSS 

T 

I 

c 

RRR 

R 

R 

D  D 

I 

s 

T 

I 

c 

R 

R 

R 

R 

DD 

I 

SSS 

T 

I 

ccc 

R 

R 

120  PRINT-E 
130  PRINT-EE 
140  PRINT-E  S 
150  PRINTME EE  SSS 
160  PRINT" 

170  FORTT-0TO1S00NEXT 
180  PRINT-rr 
190  REM 

200  PRINT" WB  DISTRIBUCIONES  BIDIMENSIONRLES. " 

210  PRINT"»  RECTRS  DE  REGRESION." 

220  PRINT-H  COEFICIENTE  DE  CORRELRCION" 

230  PR I NT " MOTEL  PROGRRMR  'ESTRDISTICR'  POSEE  DOS" 
240  PR I NT -OPCIONES :M 

PRINT"  R.-  DESV IRC IONES  ESTRNDRR. 

260  PRINT"  B.-  LINERS  DE  REGRESION. 

265  PRINT -SOBRE  LR  PRIMERR  ES  NECESRRIO  INDICRR 
270  PRINT" JUNTO  CON  CRDR  TERMINO  'XI'  0  'VI'  LRS 
280  PRINT "VECES  QUE  SE  REPITE/  ES  DECIR  SU  FRE-" 

_  J  PR I NT " CUENC I R  'FI'. 

300  PRINT 

310  PRINT "SOBRE  LR  SEGUNDR/  EL  PROGRRMR  DETERMINR" 
320  PRINT "LRS  VRRIRBLES  'R'  V  'B'  EN  LRS  ECURCIO-" 
330  PRINT-NES/  SEGUN  SUS  DOS  FORMRS • 

340  PRINT"  C'V'  SOBRE  'X'] 

350  PRINT-  C'X'  SOBRE  'V'] 

355  PRINT-RSI  COMO  EL  COEFICIENTE  DE  CORRELRCION." 
360  PRINT-WPULSR  IJNR  TECLR  PRRR  CONT I NURR  •  " 

GETR$: IFR$*" "THEN365 


INPUT 


II 


INTRODUCIR  NUMERO  DE  ELEMENTOS. I I 


370  IFIK1THEN367 
372  REM 
378  PRINT": 

380  PRINT " 

390  PR I NT " 

400  PRINT"*! 

410  PRINT"*! 


II 


IMENUI- 


M 


CR]  «-  DESV IRC IONES  ESTRNDRR" 

CB]  *•  LINERS  DE  REGRESION" 

420  OETR*  IFR$-""THEN420 
440  IFR$-"R-THENGOTO500 
450  I FR$» " B M  THENGOT 0 1 200 
460  GOTO370 
480  REM 
490  REM 

500  REM  «*«*  DESV IRC IONES  ESTRNDRR  **** 

520  DIMXI<II):DIMFI<II)sDIMVI<II>:DIMFP<II) 

523  PRINT-T13  XI  FI  VI  FI" 

524  FOR I - 1 046TO2006STEP40 : POKE I / 93 : POKE I ^54272 / 1 2  NEXT 


. 
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600 

620 

650 

655 

660 

665 

670 

675 

660 

685 

690 

696 

700 

710 

720 

750 

755 

760 

765 

770 

775 

780 

785 

790 

798 

800 

810 

830 

835 

840 

845 

650 

860 

870 

860 

890 

900 

904 

906 

910 

915 

920 


PRINT" 
REM  ** 


GOSUB3000  PRINT "VALOR  DE  SU  FI" 
GOSUB3000: INPUTFX 
GOSUB3000  PRINTFX 


CC-2:F0RT-1T0I  I 

FR-0 : CR-23  GOSUB3000: PRINT" IIVALOR  DE  XI” 
FA-1 : CR-23 : GOSUB3000 : INPUTXX 
FR-CC : CA-0  OOSUB3000  s PR I NTXX 
GOSUB2900 
FR-0: CR-23 
FR-l: CR-23 
FR-CC  CR-5 
GOSUB2900 
REM 

XI <T)-XX : FI <T>-FX 
CC-CC+1 s I FCC>23THENCC-23 
NEXT 

CC-2 : FORT ■ 1 TO I I 

FR-0  CR-23  GOSUB3000: PRINT ••WRLOR  DE  VI" 
FR- 1 :  CR-23 :  GOSUB3000  •*  I NPUT VV  • 

FR-CC : CR-1 1 s GO8UB3000 • PRINTVV 
GOSUB2900 

FR-0 ; CR-23  GOSUB3000 : PRINT" VRLOR  DE  SU  FI" 

FR-l : CR-23  OOSUB3000 • INPUTFV 

FR-CC : CR- 1 7 : OOSUB3000 : PR I NTFV 

GOSUB2900 : V I <  T  > - VV : FP  <  T ) -F V 

CC-CC^l :  I FC023THENCC-23. 


NEXT 

REM  «***  RUT I NR  MULTIPLICRCION  DE  XI  ,  VI  POR  SU  FRECUENCIA  **** 

FORT-1TOI I 

RN«RN*KXI<T)*FI<T)> 

Fl-Fl+FKT) 

RP-RP+CVI <T)*FP<T)  ) 

F2*F2+FP<T) 

NEXT 

FR-0 : CR-23  GOSUB3000  s PR I NT ■  235UMA  DE  FRECUEN- M 

FR» 1 : GOSUB3000  PR I NT  M  C I RS  '  X ' #" F 1 

FR-3 ; GOSUB 3000  PRINT " 33SUMR  DE  FRECUEN-" 

FR-4 : GOSUB3000  PR I NT M C I RS  'V' II M F2 
REM  ****  MEDIR  ARITMETICA  #*** 

I FF 1 -0THENF 1-1 
IFF2-0THENF2*1  • 

MR-RN/F 1 : MC-RP/F2 


FR»6 : GÜSUB3000 
FR-7  •*  GOSUB3000 
FR»9  s GOSUB 3000 


PRINTM2J1EDIA  RRITMETICR" 

PRINT" 'X'  ir  MR 

PRINTMJHEDIA  ARITMETICA" 

FR=  1 0 :  GOSUB3009 ;  PRINT" 'V'  ir  MC 

REM  ****  DIFERENCIA  DE  CXI  VI]  V  LR  MEDIR  CUADRADA  POR  LA  FRECUENCIA  **** 
FORT-1TOI I 

DM-IRH  (<<XI(T) -MR )T2)#FI<T)> 

DP-DP*K<<VI<T)-MC)T2)*FP<T)> 

NEXT  .  . 

REM  ****  DESVIACION  TIPICA  **** 

RW-CDM/F 1 )  ,  . 

RD*RWt< 1/2) 

R2»<DP/F2) 

RE«RZt<l/2>  *  1  ' 


FA=12 
FR-l  3 
FA=15 
FR-l  6 
FA=18 
FR=19 
FA-21 
FR-22 


GOSUB3000 : PRINT " 23DESV I RC I ON  T I P I - " 

GOSUB3000 :  PR I NT " CR  '  X  ' IT* RD 
GOSUB 3000 : PP I NT - HDESV I RC I ON  T  T  P I  -  " 

GOSUB3000  2  PR I NT "CA  'V'«"RE 
GOSUB 3000 :  PR  I  NT  " 29VRR I RNZR  '  X  '  " 

GOSUB3080 :  PR  I  NT  "  SS  M  RW 

GOSUB3000 : PR I NT M 3/AR I RNZR  'V'* 

U  GOSUB3000: PRINT"»  "RZ 

GOTO 1890 

PEM  ****  ****  ♦♦♦♦  ****  *** 

REM  **  ♦♦♦♦  ****  ♦♦♦♦  ♦♦♦♦  ****  * 

REM  *  ««*«  «•**  «*«»  «*»»  **«*  «* 

REM  «««  LINEAS  DE  REGRESION  ««»» 

DIMXI (II) • DIMVI < II) 

PRINT-Tll  XI  VI" 

FOR I • 1 046TÜ2006STEP40 : POKE I , 93 : POKE I +54272 , 1 2 : NEXT 
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PRINT" 

CC-2 : F0RT-1T0I I  ,  '  k  . 

Ffl-0 • CR-23  GOSUB3000 : PRINT'JNRLOR  DE  XI" 

FR-1 : CR-23  GOSUB3000 : INPUTXX 
FR-CC • CR-4 : GO8UB3000 : PRINTXX 
QOSUB2900 
XI<T>-XX 

CC-0>  1  s  I  FCC>23THENCC-23 
NEXT 

CC-2 : FORT - 1 TO I I 

FR-0 : CR-23 : GOSUB3000 ; PRINT" WRLOR  DE  VI" 

FR- 1  i CR-23 : OOSUB3000 • I NPUT VV 
FR-CC : CR-12 : OO8UB3000 : PRINTVV 
OO8UB2900 
VI<T)-VV 

CC-CC+l :  IFC023THENCC-23 
NEXT 

REM  ****  MEDIRS  DE  TERMINOS  PRRR  LR  LINER  DE  REGRESION  *«*« 

FORT-1TOII 

RN-RN*XI<T> 

RP.RP+VKT) 

MR-RN/ I I 
MC-RP/II 
NEXT 

FR-  1 :  CR-23  •’  OOSUB3000  • 

FR-2 :  GOSUB3000  SPRINT  "  II 
FR-4 :  OOSUB3000 :  PR I  NT  "  J31ED I R 
FR-3 : GO8UB3000  SPRINT 


/  II 


PRINT"J*1EDIR  1 

"MR 

/y/  m 

"  II  "  MC 

REM  ****DIFERENCIR  DE  TERMINOS  V  SUS  MEDIRS  **** 

FORT-1TOII 
PX-XI (T)-MR 
PV-VI <T)-MC 
XV-XV^  <  PXHPV ) 

QX-QXKPXT2) 

QY-QV^<PVT2> 

NEXT 

I F QX-0THENQX- 1 
I F QV-0THENQ V- 1 

REM  «»«*  CRLCULO  DE  LRS  VRRIRBLES  DE  LR  ECURCION  'V'  SOBRE 
BX-XV/QX : RX-BX*  < -MR ) ♦MC 

REM  ****  CRLCULO  DE  LRS  VRRIRBLES  DE  LR  ECURCION  'X'  SOBRE  'V 

BV-XV/QV : RY-BV*  < -MC ) ♦MR 

FR-7  2  GQSUB3000 : PR I NT " «ECURC •  V  SOBRE  X" 

FR-9 :  GOSUB3000 :  PRINT" 'R'  -SI" RX 

FR-10;  OOSUB3000  :  PRINT  M  21' B'  -II"  BX 

FR-13 : GOSUB3000 : PRINT"2£CURC.  X  SOBRE  VM 

FR-13 :  GO6UB3000  :  PRINT" 'R'  -II" RV 

FR- 1 6 :  GOSUB3000  2  PR  I  NT  "  10'  B  '  -II"  B V 

REM 

REM  *«**  CRLCULO  DEL  COEFICIENTE  DE  CORRELRCION  LINERL  **** 
R-XYA  <  QX#QY  >  t(  1  /2  )  ) 

FR-1 9 : GOSUB3000 : PR I NT "  2EOEF .  CORRELRC I ON 
F R-2 1 :  GOSUB3000 :  PR  I  NT  "  R  -II"  R 
FORTT -0TO2000  NEXT 

FR-23 : GOSUB3000 • PRINT"flFULSR  UNR  TECLR" 

GETBS : I FB$« " " THEN 1 893 

PR I NT " ITIBBM  PRRR  IJTILIZRR  OTRR  VEZ  CS/ND" 

OETRf: IFR$-""THEN1910 
I F R$- M  N " THENEND 
CLR 

G0T0367 

FR-0 : CR-23  GOSUB3000 : PR I NT " 

FR- 1 2  CR-23  GOSUB3000  PR I NT " 

RETURN 

P0KE78 1 / FR : P0KE782  *  CR 

P0KE793 , 0 : SVS63320 

RETURN  . 


REflDY. 


/  **** 
'  **** 


AJEDREZ 


Este  es  el  ajedrez  llevado  al 
ordenador.  En  este  juego,  el 
ordenador  controla  la 
validez  de  todos  los 
movimientos,  aceptando 
solamente:  movimientos 
del  color  que  juega  en  ese 
momento,  de  casillas 
ocupadas  o  aquellas  a  las 
que  se  puede  acceder.  Las 
piezas  comidas  se  retiran 
del  tablero. 

El  programa  no  indica  ni  el  jaque  ni  el  mate,  aunque,  claro 
está,  los  acepta.  Son  los  jugadores  los  que  se  tienen  dar 
cuenta  de  esta  jugada. 

El  programa  contempla  el  enroque,  pero  sin  embargo  no 
notará  que  este  sea  legal,  es  decir,  si  las  piezas 
involucradas  hayan  sido  movidas,  y  aceptará  siempre  esta 
rutina.  Tampoco  controla  los  movimientos  de  los  reyes  a 
posiciones  de  jaque,  por  lo  que  habrá  que  estar  muy 
atento. 


piezas  una  a  una  pulsando  una  sola  letra,  para  avanzar  se 
pulsa  espacio.  Las  letras  para  las  fichas  blancas  son: 

«c»  =  Caballo 
«a»  =  Alfil 
«t»  =  Torre 
«d»  =  Dama 
«r»  =  Rey 
«p»  =  Peón 

La  negras  son  iguales,  sólo  que  con  mayúsculas. 

Las  fichas  blancas  se  colocan  en  la  parte  superior  del 
tablero. 

Para  retirar  una  pieza,  hay  que  pulsar  «SHIFT+R»  e 
introducir  la  posición  de  su  casilla.  El  juego  continuará  con 
el  siguiente  jugador. 

Para  hacer  el  enroque,  hay  que  pulsar  «SHIFT+O»  y  luego 
la  dirección  (D  =  derecha,  I  =  izquierda). 

Si  desea  grabar  el  juego  para  continuar  en  otro  momento, 
hay  que  pulsar  «SHIFT+S».  Hay  que  tener  la  grabadora  en 
posición  de  grabar,  ya  que  los  mensajes  para  hacerlo  no 
aparecerán  en  pantalla. 


El  juego  puede  reanudarse  desde  cualquier  punto  cuando 
se  haya  grabado  previamente.  Asimismo,  este  programa 
permite  establecer  jugadas  de  ajedrez  a  la  medida  del 
usuario. 

Comandos  y  opciones 

Para  establecer  un  tablero,  se  debe  introducir  «S»  cuando 
te  sea  preguntado.  Entonces,  se  deben  introducir  las 


Para  cargar  el  juego,  hay  que  pulsar  «SHIFT+L»  y  luego 
PLAY  en  el  aparato  de  cassette. 

Se  puede  reproducir  una  partida  paso  a  paso,  pulsando 
«SHIFT+3».  Con  la  barra  espaciadora  se  pasa  jugada  por 
jugada  y  volviendo  a  pulsar  «SHIFT+3»,  se  vuelve  al  modo 
normal. 

Para  empezar  una  partida,  debes  pulsar  «SHIFT+Q» 


1.a  RUTINA 


1  PPM  »»»>  AJEDREZ  ««««« 

2  REM  _ _ 


10  CALL  !<BB03:  SPEED  «RITE  1 
300  SYMBOL  240, 1,3, 29. 6-, 6-, 3. „ 
310  SYMBOL  241.0, 128,56, -5-, -5-. 15fc. 5 

320  SYMBOL  242.?,?, 4,31, 16, 12?, 64. 127 

330  SYMBOL  243,224,224,224.240,120.254,3 

540%YMB0L  244.1,19,81,91.109.55,27,13 

530  SYMBOL  245, 128,200. 138,218,  18-  2-6,- 
i  A  *>40 

360  SYMBOL  246. i, 1,7, 14.28,28, 14^7 
570  SYMBOL  247,128,128.224.240.120.1-0.- 

40,224  __  — .  o  T 

380  SYMBOL  248. O, O, 3, 7, 15,- 1 . 

390  SYMBOL  249.0,192.64.224.1.6,-08 - - 

j  20 

600  SYMBOL  O. 25. 25;25, T 1 • 12. 15  ^ 

610  SYMBOL  251,0,0,  1--»  152*  1  j-* 

40  ,  ^  ^ 

620  SYMBOL  252. O, O, O, O, O, • • * 

630  SYMBOL  253 .0, 0,0,0,0.19^,^-  •  — 

640  SYMBOL  254.5, 4, 3, 15. 8,31 ,16* 

650  SYMBOL  235,224,224, 192.240, 1 1*, *48.5 

6.248 

660  PRINT  CHR*<23>  s  CHR*  <  1  >  l 
1000  CLEARs  GOSUB  21000 
1010  FOR  N=1  TO  100 


2% (N, l 
Zi  (M,  2>  *" 
NEXT  N 

GOSUB 
LOCATE 
LOCATE 


■oooo 

2?. 18: PRINT 
27, 20: PRINT 


"DESEAS  COLOCAR 
"UN  TABLERO-'" 


M 


ii'ü  ??"I?kev*,a*"upper*<«*> 

-O  tJm  -  THEN  G0SLJ6  30000. 1F  C HE C Y' 

sx  r??;?asT^ , 

LOCATE  «;7.20:  PRINT  SPC  (  1  -*  > 

GOSUB  29000 
GOTO  1500 

ÜSht'Ss'  INK  INK  3.  3 

hhlNT  43,  AJEDREZ.  •' 

PPINT  #3," - - 

LOCATE  !t’-.«,PRINT  *-• "DESDE.-» 
RETURN  3,2,9SPRINT  *3. -HASTA: - 

nf-  1->>>>INICIA‘-1ZAR<í«««< 

DIM  Mt (8,8) : DIM  X*(8.S> 

DIM  Z*  ( 100, 2) 

Lt*CHR$ (240) +CHR$ (241 ) 

|^t=CHR»  (242)  ♦CHR»  (243) 


1150 
1  170 
1  1 80 
1190 
1 300 
1500 
2000 
20000 
20290 
20300 
20310 
20320 
20500 
20980 
2 1 000 
21010 
21020 
21030 


M 


29 


r 


■  K¿.  -  r 


■1H 


M 


o"  then  goto  i ooo 

O"  THEN  GOSUE*  2bZ-  • 

■  then  return 

S"  THEN  GOSUB  31C0C 
L"  THEN  GOSUE  32000 


M  •• 


1  r-LJCrC  1^5^)  +CHR* 

SI  »=0  !!ÍSS¿'k4)  -CHR4  <  =55' 
2 1  S5¿  *|™F:N  COMIENZO  DEl 

ooo  REM  •  '  •  '  M  - 


DEL  J'JEGO 

—  - -  _  __  '  «  | 

21980  REM  __ 

22000  FOT  N=1(  1°  % 

22010  FOR  M-  TO  S 
22020  Mt(N.M>= 

^2025  X<  (N.Ti)  * 

^  20*30  NE  «-T  M 
22.;.  40  NEXT  N 

22¿,«y»  FOF:  N«1  3  M.a„r.n 

--'ó S<;  NEXT  n 

*2090  RESTORE  222-a» 

2*  1 00  FOR  N»1  TC  3 

«  A  A  CCLH  Al 


•  t 


— 


** :  GG 


'  1  W  V  • 

ÍF  At="F"  THEN  goto  255T» 
^4^4S  Al*UF’F'ERl  (Al) 

24350  IF  Al  "A" 

O 


OR  A1>mH"  THEN  5GTC  143 1 
=435=  N.-A.,  SOUND  2.130,5, ISrPftJNT  #T.N 


24560  At*IN*EYS 
24370  IF  Ai  "i** 


OF  A*  THEN  5CTC-  ZiZc 


22110  READ  Al 
2-.|20  lil  •  1  • N> 

T2’.Z5  X«tl.N»»A« 

7. _ _  OWEF.l  «  Al > 


N,“N’*A*!  S0UND  2-»S0.S.IS,  FFínt 

24390  RE  TURF! 

24°8«.»  REM  }’.■>>  MUEVE  < -r  '  '  • 

25000  GOSUE  26000 
25030  COUNT-CGUNT+l 
23040  IF  Zl (COUNT. i > b-ff- 


then  goto  3350 


23080  SOUND  2.700.-3.13 
25090  RO*S  1 1  CO*«*S :  GOSUB  25~v»o 
23 100  MI  <S1 .  Si  *Mi  (Fl ,  F> 

amd  ri=*  m.-fuf-.-p 


“  THEN  M» ( F 1 , F >  * "q 


••  «  #• 


_ _ DATA 

l  22980  REM 
23000  X*25: v 
27010  F3 
B  .7020  FOF 


Hl  O  c '  M.  M>  .  -~10C 

^ jF  c*='  ;  ™EN  G°,0_~E, 


77100 

SE  COL *3 
COL=COL 


O.O.CCL 


-%-0-0  cLOT 
2C;,b.:.  nOVE  X.V 

270c0  GOSUB  2750v 

77100  *LC?  0.0.0 


<«<**■  48 

2717-  NE*T  M 

' c 27 :  i 


V*r-48 


•XF*  ri 


■  27270  RET-JRN 

|*v  -'-40,*,  FEM  *#♦*♦**  p 

F**  rMUtPEFt(C«> 


IE  =  A 


«»*»♦*** 


“THEN  5.=1  4  = 

— 11  •  *  ■  -  THEN  D*- 


■  ,P  then  d«=o*= 

■  =-5-’-’  IF  C*  f.  D1»Tt:Dl*-T 

■  S3SA0  IF  0.«r*¡D1*-p 

■  =1550  IF  C«-  thEN  D*=F*:D1*=p 


if  c ;=,e'  ’hen  °* 

IK  - -¿r..;,  FFINT  *=.t>«: 

I  "-¿ir.  MOVE  X.  V-lc 
“•  - “2.Dl«s 


kf  • 


ie  1 


fÍHO.mííír.í*  P1’8  "ll;  r,.rr 

RO*Sl  :CO»Ss  GOSUB  23200 
23140  SOUND  2.100.20.13 

2515v  RO*Fi  :CO=*F:  GOSUB  23200 
23160  Ml'Fl.F)*”  •• 

23170  RETURN 
23200  X  *25: y * 390 
23210  FOR  N*i  JO  8 
25220  FOR  ü«i  JO  8 

23Í40  Í-XtIb°  AND  M’C°  THEN  G0SUB  23300 
25230  NEXT  M 
25260  X=23sY*Y-48 
23270  NEXT  N 
25280  RETURN 
25300  C*«M* (N.M) 

ÍF  C*“''  "  THEN  RETURN 
^20  IF  C*<  "a"  THEN  COL =2  ELSF  rni 

rr  ,f  t„en  s.^3X0 

25340  FLOT  O, O, COL: MOVE  X.y 
25350  GOSUB  23500 
25360  RETURN 
25480  REM 

§2? 

25310  WINDOW  #4. 35. 40. 22, C4 

PAPER  44,  OiPEN  #4.1 
25320  INPUT  #4,"Pj.2a  »  r « 

25525F#-UPPER* 


RETURN 


(Fl) 


25540 


25560 


bOSUB  23000 

'  nt(Fl,F>-"  - 

CLSC24NT‘101  THEN  C0unt-> 

GOSUB  23000 

S0T0Lí'3OO  THEN  PLAY*::!  GOSUB  28000 

^asc^t  seje»  «««< 

£s-m“‘EFT*<s*'i>> 

s8í-V^<RIGHT,<s*-1» 

return 

F4-CHRS (F+64) ♦HEXt (9-Fl  i > 

che^F?  <s*64)  -hex*  (9_Sl  * , ’ 

LHECK«Gi  RETURN 

GOSUB  26000  'ML1DA  <<<«<<«« 
CHECK-J 

IF  C4-  »  THEN  RETURN 

Ct  "Z"  AND  PLAY«2  THEN 

A”°  PLAY-I  THEN 
THEN  GOTO  27100 
Dt  > M  2  M  AND  PLAY-1  THEN 

c,.S^;; ,«?  «■**-*  tSS  „ 

GOTO  27300 
GOTO  27400 
GOTO 
GOTO 
GOTO 
GOTO 


RETURN 

RETURN 


C*« 


Ct« 


GOSUB  27900 
RETURN 

,  REM  «  «  ,  ,  FEQn  t  t  t 

IF  PLAyZ-  ^ND  F 1 >c !  IHEN  RETURN 

_  DIS"SGN(Sl-pf.F  sf  P^EN  *ETURN 

EN  GOTO  27373  1  *  Sl“El):IF  DIS*1 

27330  IF  DI S >2  THEN  RETURN 

ÍP  f.  THEN  retljkn 

goto  2?383AND  Fl"‘  AND 

60T0*~ 273g5 «™ 

RETURN 

IF  S=F  AND  DS«M  ••  jHpN 

IF  SGN(S-F)» (S-p,,, 

N  GOTO  27385  r,,ÍS"F>*l 

27380  RETURN 

goto  27230 

RG«  *  »  *  T ORRE  «  «  , 

GOTO  127?30AND  F<>®  ™EN  RETURN 
1  »  «  CARO.  ,  n  $  $  , 


THEN 


Mt(3.F)«- 

«•<6,F)«- 


GOTO  27385 

and  dscv  "The 


IL3OO  IF  Sl-Fl-2  AND  S-F-l  THEN  GOTO 

[27310  IF  Sl-Fl-2  AND  S-F-l  THEN  GOTO  275 

127520  IF  Sl-Fl-2  AND  S-F-l  THEN  GOTO  275 

27530  IF  Sl-Fl-2  AND  S-F-l  THEN  GOTO  275 

27540  IF  Sl-Fl-1  AND  S-F-2  THEN  GOTO  >.5 

S?550  IF  Sl-Fl-1  AND  S-F-2  THEN  GOTO  275 

127560  IF  Sl-Fl-1  AND  S-F-2  THEN  GOTO  273 

27370  IF  Sl-Fl-1  AND  S-F-2  THEN  GOTO  2"'3 

180 

27575  RETURN 
2758*’»  GOTO  27230 
27590  REM  t  t  t  ALFIL  *  •  * 

77600  XD»F-S: XD*SGN (XD) t XD 

27*10  YD=F1-S1*YD»SGNCYD>*YD 
27620  IF  XDOYD  THEN  RETURN 

27&85  60T0  27230 
27690  REM  *  *  *  REINA  *  *  * 

27700  XD=F-S: XD*SGN ( XD) tXD 
?  2"T7 10  YD-F 1  -S 1 1  YD-SGN  ( YD )  t  YD 

IF  XD*YD  THEN  GOTO  27785 

27^30  IF  FlOSl  AND  FOS  THEN  RETURN 

27785  GOTO  27230 
-»*t-*qa  REM  *  *  t  REY  *  *  * 

27800  IF  SGN (Fl-Sl) * (Fl-Sl ><>1  AND  SGN'F 
-8)  *  (F-S)  <M  THEN  RETURN 

27290  &REM  t  «  *  CONTROL  DE  MOVIMIENTO  * 

t 

27900  ND-0sMD*0 
'’^PIO  IF  F 1  >S  1  THEN  ND»-1 
*7915  IF  Si:>Fl  THEN  ND-1 
27920  IF  F  >S  THEN  MD— l 
27925  IF  S/F  THEN  MD«1 
27930  CN«F1:CM*F 
^7041)  CN*CN+ND:  CM«CM+MD 

if  CN*S1  AND  CM*S  THEN  RETURN 
27=60  IF  M*(CN.CM><>"  “  THEN  CHECK- 1 : RET 

URN 

"-0-1  j  GOTO  27940 

27930  REM  >>>>>  CAMBIAR  <■;««« 

28000  GOSUB  24000 
28005  LOCATE  #3, 1 . U s RRINT  *3," 


•• 


28010  IF  CAS- 1  THEN  GOSUB  26340  ELSE  G 
OSUB  27000  . 

^8020  IF  CHEC»0  THEN  GOTO  28050 
2807.0  LOCATE  #7,  1 .  1 1  s PR INT  43."  MOVIMIEN 

TO  NO  VALIDO"  „ 

2e040  SOUMD  2.300.40. 13, O. O, 20: GOTO  -8*X> 

O 

[28050  IF  K-l  THEN  GOTO  28090 
28053  2* (COUNT . 1 ) — F* 

28060  2* «COUNT. 2>=S*  _ , 

290",0  COUNT  -COUNT  + 1 :  I F  C0UNT-101  THEN  CO) 

UNT *  1  I 

28030  GOSUB  25000 

2dO°‘*  RETURN 

- goorj  REM  AMBOS  JUGADOF:ES  X'CXs 


•  • 


FLh  »  *-2 
60SUP  28000 
RETURN 

F.EM  >:  JUGADA 


f re-establecí da 


•>000 

<**23:  Y»39< 

;oo  i  o 

EOF  Nal  Tr 

0020 

C0F  M*  1  TC 

rcoro 

SOUND  2.2Í 

• 

'0040 

Mf  <N.M>«M 

re-oso 

GOSUB  3 05* 

:o  1 3o 

PLOT  O.O.i 

:o  1 4o 

X*X«*-48 

:  o  i  so 

next  m 

roí  c.» 

X 3 23 : Y  =  t - 

roí  ■'o 

next  N 

70 1 80 
•• 

i 

1 1 

Ui 

H 

«I 

U 

O 

1 

30 1  °0 

LOCATE 

•  • 

•  ••  • 

^  0  mrn  •  « 

At  v  irit  Ey  < 

3021  '* 

IF  ;§**•'  :  * 

^  •*!  *  ^  t#| 

m  m  #  •  • 

¡r  Afa’TI" 

• 

A  ^.®#l 

GOTO  302*’ 

30  i 

FEM  *  t  % 

30500 

flot  0.0. 

•  •  •• 


II 


ESTA  BIEfl  “ 


-HEM  CHECt -Oí RETURN 


•  INTRODUCIR  ♦  *  * 


•  • 


ii  C‘ 11 


vVJ  ¿ V  i  iw  •  w  •  •  •  *  . 

30510  Dt*  ItilEris  C«=UFcERf  .DI  * 

30522  IR  Dt»" "  THEN  GOTO  30520 

30323  GOSUB  3 5c 00 
30530  IR  D*»',M  THEN  GOTO  30520 

30333  Ct«UPPEP«<DO 
30540  PLOT  0,0,2 
30550  MOVE  X.YiPPINT  #2,  M?Ml 
30560  IF  C*\  "R"  AND  CIC"N"  AND  C« 

and  c*ohqm  and  cior  and  ci 

N  RETURN 

30570  SOUND  2,100.20.15 
30580  IF  Di-Mn"  THEN  D*«MtM 
303 °0  IF  D**"N"  THEN  D**"T" 

30600  Mt(N,«i»Dt 
30605  Xt<N,l1)-Dt 
30o 10  C*-D* 

30620  IF  C*Í"J>”  THEN  C0L*2  ELSF.  COL  - 
30630  IF  TEST  •. X-2 •  Y +2 >  *3  THEN  COL-CO1 

R  1 

30640  PLOT  O. O. COL 
30650  MOVE  X.Y 
30660  GOSUB  23500 
30670  RETURN 

*  31040  Gt*Gt*Mt (M,M) <N. M) 

32010  OF EN IN 


7  M 


=LEFT« (G«. : ) , X* (N.M) «MID* (S 
S*=RIGHT* ÍG*.LEN(G«)-2) 

conmt'X^  volver  a  jugar 

COUNT*i.)j  FLAY«1  ‘  '  ' 

FOR  N=l  TO  8.F0R  m-j  tq  s 

M*<N.M)«XftN.ri)  3 

NEXT  MsNEXT  N 

cnnw?  200001 G08UB  23000 
COUNT=COUNT ♦ 1 

IF  “* (COUNT. 1 , *"FF"  THEN  GOTO 

22  ‘S53’  1  ’ S  S*’Z*  ‘C0UNT.2» 
COUNT»COUNT  ♦  i  ^°°° 

IP  :*<C°UNT. 1  >«"CC"  THEN  GOTO 

A*-INKEY* 

¡Za yir  THEN 

IF  THEN  GOTO 

IF  Zt  (COUNT.  i  ywpF» 


7550 


;o3 


350S0 


35500 
THEN  GOTO 

F*-:*  LOUMT.l)lSt=;,,CQ(  ... 

GOSUS  26000 jGOSUB  23000 

IF  < COUNT*  1 ,  1 )  i”pr”  rur., 

=»GOTO  35110  HEN  C0UNT 

a*«inkey* 

flay»*  THEN  G0T0  33140 
¿StS*33030THEN  G0T°  35300 

I^AV-,  THEN  GOTO  1500 

GOSUB  28000i GOTO  1300 
„  L!a“2"  tHEN  RETURN 
?!"-  TRADUCE  A  CASTELLANO  «« 

D* »" B "j RETURN 

D$a“' 


3550 


M 


•  • 


Dt« 
D*» 
Dí» 

Dt  =  "n 

Di  =  "» 

D«3**  » 

D*  = 

DS  = 

D*  = 
bt* 


b  M : RETURN 
R" i RETURN 
r"« RETURN 
: RETURN 
: RETURN 
:  F-ETURN 
: RETURN 
■l  RETURN 
'oM:  RE  TUR  N 
RM: RETURN 
D*':  RE  TUR  N 


2.a  RUTINA 


19980 
20010 
20020 
20030 
20035 
20040 
20070 
20080 
200°0 
20100 
201 10 
20120 
20170 
20140 
20150 
20 1 60 
20 1 70 
20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
202 

lO 
24000 


ppM  nvvv>>>>: pantalla  ■.'««<« 

PAPER  0*  PEN  is  BORDEA  0:M0DE  1 
WINDOW  #1.2,25. 1,24 


24010 

24020 

24030 

24040 

24050 

24060 

24070 

24080 

24100 

309B0 

3 1 000 


PAPER  #1.3*  PEN  #1 
PAPER  #2,2 
TAG  #2 

L9^STRING9  <3. 143) 

L 1 #*STR I NG9 <3.32) 

N9»L9«-L19**-L9-*-L19-* 

FOR  N=1  TO  4 
FCR  M-l  TO  7 
PRINT  # 1 • N# * 

NEXT  M 

PRINT  ¿1.PIGHT#  ' NS , 21 >  ♦LERT*  <N#,3>  5 

NEXT  M 
NEXT  H 

FOR  N“2  TO  27  S 
LOCATE  l.N 
Lt«HEXt < (26-H>/3, 1> 

PRINT  L9: 

LOCATE  N-1.2 
PRINT  CHR9 * 64 ♦ <N+ 1 ) /3 ’ s 

NEXT  N  .  ^ 

WINDOW  #3.27.  -9.--  1- 
PAPER  #7. 7 ¡PEN  #7. lsCLE 
FEM  ''  •  INTRODUCIR 

LOCATE  #7.5.4: IF  PLAv*i  _ 

#3 ,  "BLANCO"  F.LSE  PF.INt^V  4=-~  0 
LOCATE  #7. 10. ó¡ PRINT  #3. “ 

LOCATE  #3. 10. PRINT 
LOCATE  #3.10.6 
GOSUE  24500 
Ff«N* 

LOCATE  #:.10.9 
GOSUB  24500 

St=N# 

RETUPN 

R£M  > >  > > .  O  GRABAR 
•2t (COUNT. 1 » *”FF" 


THEN  PFTNT 


•  7. 


«<< 


3 1 0 1 0 

3 1 020 
31030 
3 1 050 
31060 
31065 
31070 
3 1  OSO 
31085 
3 1 090 
3 1 1 00 
71120 
31130 
31140 
31150 
3 1  1 60 
3 1 200 
3 1  °80 
32000 


Gt  =  H  ••  ¡  SÚUND  2.200.2077; 
100.40,15 
FOR  N= 1  TO  8 
FOR  M=i  TO  8 
NEXT  M 
NEXT  N 
Ht »  M  N  j  1  %  *  ••  •• 

FOR  N-l  TO  ICO 

2 f  (N,  i ) 

19-19+Zt (N.2) 

NEXT  N 

Ht«H*+STRt  (COUNT ) 

PRINT  #9. Gt 
PFINT 

C’RINT  #9,  1 1 

CLOSEOUT 

SOUND  2 . 200 . 20 .15: SOUND 
RETURN 
REM 


SOUND  2. 


2. 100,40,  1 


*  % 


; CARGARCC<<<<<<< 


320  J  3 
72020 


G*-""  : SOUND  200. 20. 15 
200 .40. 15 


SOUND  2 


*  a. 


LIME  INPIJT 
LINE  INPUT 
LIME  INPUT 
CLOSEIN 
r  OR  '!■  l^H 
FOr.  1 
NEXT  M 
NEXT  N 
FOR  N«1 


#°.  Gf 

#°.H9 

#°.  19 


1 00 


7e<N. 1 > *LEF7t (Ht . 2) 
H«*P IGHT 5  'H9 . LENíHti - 
Zl <N.2'»LEFTt 'lt.2) 
!9*PlGHTf  ( I  I.LENMD- 
NEXT  N 

COUNT «VAL  <H« ) 

SOUND  2.200.20 
GOSUB  20000 
GOSUB  23000 

#3. 10. ó 

RETURN 


2) 


15: SOUND  2,200,40,15 


BUQUE  FANTASMA 


Esta  es  una  aventura  conversacional.  El  buque  fantasma 
Mane  Celeste  tiene  un  secreto  que  debes  averiguar.  Para 
hacerlo,  deberás  ir  dando  órdenes  al  ordenador  hasta 
averiguar  el  misterio.  Como  estás  en  un  barco,  en  vez  de 
norte  usarás  proa,  popa  para  sur,  babor  para  este  y 
estribor  para  oeste.  Puedes  usar  asimismo  frases  de  dos 
palabras,  como  «coger  cubo»,  etc.  Los  datos  del  programa 
están  mezclados  para  que  no  sepas  el  misterio  hasta  que 
no  juegues  con  él. 


33 


PEM 

GOTO  29000 
RESTORE  1200 
FOR  n«t  TO  6 
FOR  2  TO  40 
READ  a: LOCATE 
PRINT  CHR# (a) 5 
NEXT  m 
NEXT  n 

RETURN  „ 

DATA  158.154,158.  154,  156, 3*., 

^  3^.32.32,32,32,32,150, 

t5;:iirÍ2;T?;r2;isfc,32.32,32,32.32.32,l 
49  32,32,32,32,32 

1 21 0~ ' DATA  149.32. 149.31. 149.32,32, 32,32 

i;  3^  32.32.227.32,32,32,32.32,32.149.3 

2^ 14o~ 32, 32.32. 149, 32.32.32.32,32.32. 151 

1220  DATA  149.32. 14°. 32, 149,32, 150. 154. 

156.32,  158,  154.  156,  158,32,  150,  154,  156, 
,32, 149,32,22, 150, 154, 156, 149, 150^ 154, 15 

6. 150. 154, 156, 149,32. 150, 15*. 156^-2  ^ 
1230  DATA  149,32, 149.32, 14°. 32, 

9.32.149.32.32,  149,32,  151.154,  153.3^^, 
14®, 32, 32, 151, 154. 153, 149,151.1^4. l5w, 14 
9  32. 153, 149.32, 151.154.153,32 
1240  DATA  149,32, 149,32, 149, 32, 150^154, 
157.32, 149,32.32, 149,32, 1 49 , 32 , 32, 32^ ^ 

149.32.32,  149,32.32.  140^149.  .2,  — .  I4  •  ^ 

4,156.149,32,149.32,32,32 

1250  DATA  155.32.  155,32.  155,32.  14"*.  l->4, 

155.32,  155,32.32.  155.32,  ' *7 '***'l*Z'*Z 
2, 147, 154, 153, 147, 154, 153. 155, 147. 154. 1 ^ 

3,  147, 154. 153,147. 153. 147, 154,  153 
1500  RETURN 

*  >>>>>>>>>pantal  1  a< <<<<<<  *><'  «<  ' 


_ 


*  • 


21240 

21245 


19980 

20000 


24 


iCLS 


INK  0.3: INK  1,20* INK  2,0: IN» 

20010  MODE  1 

20020  BOEDER  O: PAPER  2«PEN 
20030  WINDOW  111,1,30,8,16 
20040  WINDOW  #2.1,30,17,25 
20050  WINDOW  #3, 31 , 40. e, 25 
20060  PAPER  #1,0: PEN  #1,1:CLS  #1 
20070  PAPER  #2,2: PEN  #2, 3: CLS  #2 
20000  PAPER  #3, 3: PEN  #3, O: CLS  #3 

20100  RETURN 

20980  ’<<<<<<<<inicializacion»>  »V># 

21000  DIM  d ( 10.7) 

21010  DIM  o#  (ID 
21020  DIM  <n(lü,4> 

21030  DIM  o(ll) 

21100  RESTORE  21200 
21110  FOR  n»l  TO  10 
2 1 1 20  READ  d  (n,  1 )  ,d  (n,2)  .  d  ( 


21 1,0  zss 

FOR  n*l  TO  11 
READ  o*  <n) . o  <n ) 

NEXT  n 
RETURN 

DATA  1.8.10.11,20,0.0 
O. O. O. O 

12,36,23,0,0,0,0 

1 . 1.0,0 

1'. 16,1,29,4,30,20 

1.0. 1,0 

3, 13.14,23,0,0,0 

0,1, 1.0 

1» 18,33,30,3,0,0 

o. 1,0,0 

1.8,9,11,20,0,0 

O. 0,0.0 

2. 30,  *0.13.13,22.16 

1.0. 1,1 

5. 30,  20,0, 0,  O.  O 
0,0. 1,0 

1 , 8, 34,29. 5, O, O 
1.0, O, 1 

33, 3, 27 , 1, 17,0,0 
0,0, 1,0 
CUCHILLO. 6 

LONA, 1 
AGUA  EN 
CUERDA. 6 
CARTEL.  8 
CUBO , 4 
LLAVE , O 
GATO, 9 
TRAPO, 3 

BOTAS  DE  AGUA, 3 

-  ganchos, O 

•"•-"-i PRINT  #2:  PRINT 


2 


»»>: 


•  •  n  1 1#  i  *  ^ 

«*-lNKEY*i *»-UPPER*  <at, 


>"» 


1F  OR  aSVZ") 


AND 


AND 
•<  >CHR* 


22040 


AND  *•< >CHRs < 1 3) 

THEN  GOTO  22010 
22030  SOUND  1.130.2.15 

IF  **»CHR*(.127)  AND  «,*„••»  rHp, 
GOTO  22010  FHE 

IF  «*-CHP«(127>  THEN 

m**LEFT*(m,fLEN(m*)-1) , 

PRINT  42.CHR*  (8)  s  "  •••CHR«<h>. 
GOTO  22010  .lhr»(8),, 

IF  a*»CHR*<!3)  THEN 
PRINT  W2. CHR*  (13).  RETURN 

pP^INT  #2 
GOTO  22010 

'  <'<<<'  ínvtntario»»»»^ 


24020 


23040  IF  Ct-"ES 

IF  C*-”PR 


23000  CLS  #3 

23010  PRINT  #3, -INVENTARIO- ; 

23020  PRINT  #3,  M - * 

23030  PRINT  #3* PRINT  #3 
23040  FOR  n-1  TO  11 

23030  IF  o (n ) *13  THEN  PRINT  #3.o$(n> 
23060  NEXT  n 
23070  RETURN 

23980  •««««««.< mol  i  t  >»»»»»» 

24000  vt*“”*n4-MM - 
24010  FOR  n* 1  TO  LEN(m4) 

IF  MID4 (m*,n, 1 ) *"  ”  THEN 
GOTO  24060 
24030  NEXT  n 
24040  vt-m* 

24050  RETURN 

24060  v4-LEFTS(íi»*,n-l> 

24070  NS*RIGHTt<m*,LEN<m4>-n> 

24080  RETURN 

24980  *  <<<<<<<<<<<<<com*ndo*>>>  '  >.  »>* 
25000  GOSUB  22000 
25010  G09UB  24000 
25020  Ct*LEFT*(v*,2> 

IF  C4--BA"  THEN  GOSUB  30000 

-  THEN  GOSUB  31000 
THEN  GOSUB  32000 
25060  IF  C4--P0-  THEN  GOSUB  33000 
25080  IF  C4--EN*  OR  C**"IR”  THEN 

GOSUB  35000 

25090  IF  C4--EX-  OR  C*«MMI"  OR  C*»“IN" 

THEN  GOSUB  36000 

25100  IF  C4--AB-  THEN  GOSUB  37000 
23120  IF  C4- -SU-  THEN  GOSUB  39000 
25130  IF  Ct-MMA-  OR  C4*"ASM  THEN 

GOSUB  40000 

23140  IF  C4-UL0-  THEN  GOSUB  40500 
25150  IF  CB--FU-  OR  C4*MBEM  OR  C**MEM- 

THEN  GOSUB  41000 
23160  Ct-LEFTS<V4,3> 

25170  IF  C4--FRE"  OR  C4*MLlM,f  THEN 

GOSUB  42000 

25180  IF  C**-MOV-  OR  Ct-“ALZH  THEN 

GOSUB  43000 

IF  C4--C0R-  THEN  GOSUB  38000 
25187  IF  CS*”COGM  THEN  GOSUB  34000 
23190  IF  V4--FIN-  THEN  GOSUB  44000 
23200  IF  v$*NA"  THEN  GOTO  25220 
23210  PRINT  #2, “No  tntitndo...- 
23220  GOSUB  28000* GOSUB  23000 
25230  GOTO  25000 

23°90  ’<<<<«<<<<comi»nzo>>:  >>>>>>>>> 
26000  GOSUB  27000 

26010  GOSUB  20000  jMjf ¡jHI 

26013  GOSUB  ÍOOO 4 
26020  GOSUB  21000 
26030  GOSUB  23000 
26040  oo*6 
26100  RETURN 

26980  * <<<<<<<<<cBd»na% >>>>>> >>>>>>>>> 
27000  DIN  wS  (36) 


l_J 

% 

«lint# 


28010 

28020 


28040 


i 


27020  FOR 
27030  REAO  w*(n> 

27040  NEXT  n 
27030  RETURN 

VIENTO, AULLA, ULULA ‘  L 

rSTnSKí  CELESTE^0  RISA-FUERA,  DENTRO 

sasM  s¿i s&ssssa 

CLS<#l<<<<<<d"*CrÍblr>>>>>>>>>>>^ 

IF  po*2  AND  O(10X>13  THEN 

••SEA  SSKo ?:5—  - 

POF.Pn:í  ^D70<2>*°  THEN  G0T°  «000 

PRINT  »1 .  w*  (cJ  <po,  n)  >  j  ••  -j 

A  I  O 

PRINT  #1 
PRINT  »1 

cniNT  #1*”  Pu#do  V#r 

FOR  r>»i  TO  11 

IF  °-n>"DO  THEN  ^INT  #1 ,  ot  (n) :  "9  " 

NEXT  n 
RETURN 

sosue  r6oooC°"’1"n2°  >u#9°  •’»»» 

GOSUB  29000 
GOTO  23000 

‘  •<  '/<':«<cofliindo*»vs>vsv  ^s  .  N 

Ziüni'n?  then  got°  30020 

RETURN*2 ’  ^  PU'd*‘  *-  «hi.-, 

THEN  P°"PO-3i  RETURN 

*  ",<D  0(i>c|T  THFW 

PRINT  #2."U.„  -so*(at  EN 

ELSETSOtÓ"t  V”  b—r.» 

kLSE  GOTO  30015 

POR  n*l  TO  3000* NEXT  n 

oo*po-3: RETURN 

V|r“AM 

THEN  GOTO  31020 
RETURN  *  N°  PUBdeS  'r  - 

Í'iMdo0"'? *  thEN  po-do+Sj  RETURN 

prTn ? then 

PRINT 

Picp  rnrri  i  Vas  T>*Cia  estribor." 
kLSE  GOTO  31013  ■§ 


29070  FOR 


29100 


29000 

29010 


30020 

30030 


30040 

30030 

31000 

31010 

31013 


31040 

31050 

32000 

32010 

32013 

32020 

32030 


32040 

32050 

33000 

33010 

33013 

33020 

33030 


3000i  ne: 

oo-po+5: RETURN 

.  _ 

IF  «(po.DOO  THEN  GOTO  32020 
PRINT  #2, "No  puedes  ir  por  ahí." : 

RETURN 

IF  m(po.l>«l  THEN  po-po*  1  :  RETURN 
a«m(pc. 1> :a-a-l* IF  o(a)*l3  THEN 
PRINT  #2. "Usas  ":o*(a>: 

PRINT  42, Mv  vas  hacia  proa." 

ELSE  GOTO  32015 
FOR  n— 1  TO  3000: NEXT  n 
po*po+ 1 : RETURN 
vt***^" 

IF  m (oo, 3) <  >0  THEN  GOTO  33020 
PRINT  #2, "no  putdea  ir  por  ahi.": 
RETURN 

IF  m(po.3)-l  THEN  po»po-l i RETURN 
a«m(po,3> : a-a-1:  IF  o(a>-13  THEN 
PRINT  #2, "Usas  ":o4(a>: 

PRINT  #2, "y  vas  hacia  popa." 

ELSE  GOTO  23015 
FOR  n-1  TO  3000: NEXT  n 

po— po— 1 i RETURN 
FOR  n-1  TO  10 

IF  nl"ol (n)  THEN  GOTO  34060 
NEXT  n 

PRINT  «2.  "ffb  «tai  tonto  1  * 

RETURN 

IF  n- 4;  THEN  PRINT  42, -Esta  a*«da 
traslado  fuart»  para  mi  RETURN 
34070  o (n>-l3 

PRINT  42. "OOQas  m\/\*  Mio4(n> 
RETURN 


IF  ñ*<>" ALMACEN"  AND 
H**>" ALMACENES"  THEN 
PRINT  42,"No  puedes  ir 
RETURN 

IF  m  < lo*  4) —O  THEN 
PRINT  42, "Esta  cerrado 
po-5i RETURN 

vt-"-*" 

FOR  N-1  TO  11 

IF  n4-o4(n)  THEN  GOTO  36060 
NEXT  n 

PRINT  42. "No  vao  aso  aqui . " 
RETURN 

IF  n-1  THEN  PRINT  42, "Es  afilado 


33040 

33050 

34000 

34010 

34020 

34030 

34040 

34050 

34060 


35020 


RETURN 


36000 

36010 

36020 

36030 

36040 

36050 

36060 


36070  IF  n— 2  THEN 

PRINT  42. “Es 
IF  n-3  THEN 
PRINT  42, "Es 
36090  IF  n-4  THEN 

"Esta  atada 
36100  IF  n-5  THEN 

PRINT  42, 
"•No  hay  n 


varea 


i  •• 


humada  v  salí 
PRINT  42, 
fuertemente  1 * 

PRINT  42, "Dica 

•si dad  da  ir  dada jo": 


Ju.go!>--NT  "2’"d*  1*‘  CUbl,rti5  en  este 

36110  IF  n-6  AND  o (7) -O  THEN 

tcINT  l*2-,‘HACe  ruido  !":o<7)-po 
361^0  IF  n*6  AND  o(7)<>0  THEN 

PPINT  “Esta  vacio  •  " 

36130  IF  n«7  THEN 

•  *PINT  *2.  "Dica  *  ALMACEN'  " 

36140  IF  n*e  THEN  PRINT  42, 

•*cap*  COn  una  rata  muerta.  " s 
o(S) *0  * 

36150  IF  n-?  THEN 
a_  PRINT  42,  "Esta  empapado  !" 

-O  f  ¡Tí?  PRINT 

w61*°  IF  N-1 1  THEN  PRINT  42, 

36180  RETURN*"  S*r  3*r*  Un*  Cu«"d* 

37000  vl«"A" 

37010  IF  poOlO  THEN 

370-0  TFINT-f?x  '  ’  N°  OU#do->*  “«RETURN 
w70^0  IF  o(7)<>13  THEN 

PRINT  42,  “No  tango  llave  ?":F;ETURN 
37030  m (po, 4) «l j 

PRINT  42, "El  almacén  esta  abierto." 

d( 10.3) «28: RETURN 

vt»"A"ilF  0(1)013  THEN 

"2, “Con  que  ?": RETURN 
IF  nS-oS (4 )  THEN  GOTO  38040 

PRINT  42. "Sádico  1 " 

RETURN 

PRINT  42. "Cortas  la  cuerda  y 

0<4)*13 

RETURN 

RETURN*  IF  n*<>0*<4)  ™EN  v«— fti-, 

PRTNT4!^  AN°  °<4)<>13  THEN 

°"d*  e,t*  l* 

cuÍrdT,'''-SUb,S  P°r  la  d- 

IF  po»6  THEN  po«7i o <4) .7» RETURN 
IF  «ÜI?  PO-6 1  o ( 4 ) -6 : RETURN 

RETURN  ^  PO«2io<4)-2:RETURN 

PRINT  #2, "Un  albatro.  vu.l.  hacia 
PRINT  .2, -y  t.  ataca  por  - 

destructivo." 

PRINT  42, "  Estas  muerto  • M 
FOR  n-1  TO  5000 
NEXT  n 

SOUND  1,350*10,15 
GOTO  44000 
V4— "■*" 

PRINT  #2. PRINT  #2. "LAS  SALIDAS 


39010 


39020 

39030 
E  39040 
39050 
39060 
40000 
ti" 
40010 
40020 
40030 
40040 
40050 
40060 
40070 
40500 
40510 
I  " 

40520 


SON 


40530 


IF  M  (PO.DOO  THEN 
PRINT  42, "PROA 
IF  M  (PO.  3X^0  THEN 

‘P0PA  "I 

I  I  I 


40340 

40530 


40360 


40370 

40580 

41000 

41010 

41050 

42000 

42010 

42020 

iota. 

42030 


i  •• 


42040 


42030 

43000 

43010 

43020 

43030 


IF  M(P0f  2) <>0  TREN 
PRINT1  #2 /"ESTRIBOR  "| 

IF  M (POf  4) <>0  THEN 
PRINT  #2* “BABOR. M 
IF  «tpo,l>*0  AND  m (po, 2) *0  AND 
m(pof3>-0  AND  m(po,4>«0  THEN 
PRINT  #2, "NINGUNA." 

PRINT  «2 
RETURN 

PRINT  #2."  Ahora  no, marinero 
RETURN 

IF  o(4)<>13  OR  o<9)<>13  THEN 
PRINT  #2, "Con  que . 1 oco. * RETURN 
IF  po<  >2  THEN  PRINT  #2. "Aquí  no, id 
. " t  RETURN 

o (3) -O*  PRINT  #2. "Bien  hecho?  Ahora 

limpio!*" sm<2.3> *3 

d<2, i)-lid<2f2)-2id(2*3> *20: 

d <2, 4) -32* d <2* 5) -21  id (2. 6) «11* 

d (2,7) -O 
o ( 1 1 > -2*  RETURN 

FOR  n-1  TO  10 

IF  n4-o4(n)  THEN  GOTO  43060 
NEXT  n 


43060  PRINT  #2  «i  ^ 

43070  PRint  Ueves  v  el” 

43080  o<n)-0  V,*nto  «  lo  lleva 

43090  RETURN 
44000  CLS  #3, CLS 
44010  PRINT  #-«  ÍTq  ~ 

44020  GOSUB  22000'  JU9*d« 

ss 

upando  •«  zoda 3  «añera»  os 

as  s,v  to  ™ 

44070  RUN 
43000  CLS  #1 

4=010  PRINT  ÍNSES»  !“* 


I  •• 


tas 


en 


43020  PRint  #1  h_ 

43030  pr,nt  ¿ 

» «  4  resolvei 

«5030  PRint  »i..r-,01 

43040  GOTO  44000 


Que  NUNCA" 
laa  la  «ventura 

*«  «ventura  ? 


precisan  distribuido 
todo  el  territorio  na 
cional,  para  productos 
primeras  marcas 

Computer 
Video 
Audio 


Dirigirse  a:  Monser,  S.A. 

C /  Argos,  3.  Teléfono  (91)  742  72  12 
Srta.  Yolanda 
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Participa  en  su  Concurso  de  programas  para  ordenador  Hit  Bit-MSX. 

Sony  convoca  un  Concurso  de  programas  para  ordenadores  MSX  bajo  dos  categorías. 

A— Programas  de  Contenido  Didáctico.  Tema  de  contenido  didáctico  desarrollado 
por  Centros  Docentes  entre  los  especificados  en  los  planes  de  estudios  vigentes. 

B  -  Programas  libres.  Tema  libre  desarrollado  por  usuarios  de  ordenadores  MSX. 


Premios 


A  -  Para  el  mejor  pi  ograma 
didáctico.  .  . 

500.000  ptas.  para  el 
Centro  Docente  ••  /. 7 
500.000  ptas.  para  los  ; 

autores  •  *  • 

_  •  # 

B  -  Para  el  mejor  programa 

de  tema  libre. 

1”.  premio  500.000  ptas. 

para  el  autor  o  autores. 

5  premios:  100.000  ptas. 
para  cada  uno  de  los 
siguientes  5  clasificados. 


Requisitos 

►  Los  programas 
presentados  por  los 
Centros  Docentes 
deberán  tener  un  máximo 

de  28  K.  RAM. 

►  Los  programas 
presentados  por  usuarios 
deberán  tener  un 
máximo  de  12  K.RAM. 

►  Sony  tendrá  la  propiedad 
de  los  programas 
premiados. 


►  Sony  tendrá  los  derechos  • 
de  compra  sobre  el 

resto  de  los  programas 
presentados.  •  •  ■ 

•  ►  Los  programas  que 

•  concursen  deberán  ser 
presentados  grabados  en 
cinta  de  audio  Sony  o 

•  diskette  Sony  OM-D3440, 

'  entregándose  dos  copias. 

..  •  Asimismo  se  .deberá  ad-  • 

-  juntar  un  listado,  instruccio- 

•  nes  de  funcionamiento  y 
una  síntesis  del  contenido 
del  programa. 

►  Con  cada  programa  se 
entregará  un  sobre 
cerrado  conteniendo  los 
datos  del  autor  o  autores, 
y  en  exterior  figurará  el 
título  correspondiente. 

►  Todos  los  concursantes, 
independientemente  de 
su  clasificación  final, 
serán  obsequiados  con  un 
producto  Sony. 


Fecha  de  entrega  de 
los  programas 

La  fecha  tope  para  la 
recepción  de  los  programas 


es  el  30  de  Noviembre  de 
1 .985.  Debiendo  ser  entre¬ 
gados  a  Sony  España,  S.A. 
Departamento  Ordenadores 
MSX.  Sabino  de  Arana, 

!  42-44  08028  BARCELONA. 
.  T.-  (93)  330  65  51.  . 

s  •  .  •  . 


•  ♦ 


: 


F alio  del  concurso  y  . 
entrega  de  premios 

# 

Entre  todos  los  programas  •  ■ 
recibidos,  Sony  eligirá  los 
que  a  su  juicio,  contengan 
un  mayor  nivel  de  •  -  '  / 

innovación. y  creatividad.  . 


El  fallo  se  hará  público  el 
29  de  Diciembre  de  1.985  v 

y  publicado  en  la  prensó 
nacionaL  '  .  • 


Para  mayor  información  o 
consulta,  diríjase  a 
cualquiera  de  las 
Delegaciones  Sony. 


I 


BARCELONA 

Sabino  de  Arana.  42-44 
Tel.  (93)  330  65  51 
00028  BARCELONA 


DELEGACIONES  SONY  ESPAÑA,  S.A. 


MADRID 

Julián  Romea.  0 
TeL  (91)  253  08  00 
28003  MADRID 


BILBAO 

Pintor  Lecuona,  1 
TeL  (94)  444  42  00 
48012  BILBAO 


SEVILLA 

Niebla,  8 

Tel.  (954)  27  47  07 
41011  SEVILLA 


VALENCIA 

Salvador  Fenandis  Luna.  6 
TeL  (96)  325  35  06 
46018  VALENCIA 


LA  CORUÑA 

Avda  Eiército,  23 
Tel.  (981)  29  98  55 
1 5006  LA  CORUNA 


.  4 


suscr 


Elidon 

ahora  a  la  excelente  revista  Co 
modore 


completamente  gratis  el  juego  Eli- 
on.  cuyo  precio  < 

.800  pesetas. 


Si  eres  un  fa 


¡co  de  las  aventur 


■ 


C*0*M*M*0*D*0*R*E  64 


Elidon  es  para  ti.  Este  juego  es  el 

n9  1  en  Inglaterra,  mostrando  un 

despliegue  de  gráficos  soberbios  y 

un  grado  de  dificultad  pocas  veces 
superado.  Deberás  conducir  el  hada 
a  través  del  bosque  de  Elidon  en 
busca  de  las  pociones  necesarias 
para  que  florezcan  las  plantas 


BOLETIN  DE  SUSCRIPCION 


MONSER,  S.A.  -  COMMODORE  SOFT  MAGAZINE  -  c/  Argos,  9  -  28037  Madrid  -  Tlf.  742  72  12  /96 
Deseo  suscribirme  por  12  ejemplares  y  12  cassettes  de  commodore  soft  Magazine  por  5.940  ptas.  a  partir  del  número. 
El  importe  lo  haré  efectivo: 

□  Por  giro  postal  n.Q 

□  Por  contra  reembolso  a  la  recepción  del  primer  ejemplar 

□  Por  talón  bancario  a  Monser,  S.A. 

Gastos  de  envió  incluidos. 


Nombre  y  apellidos 


Domicilio . Tlf .  Ciudad . C.P 


Fecha 


Firma 


Monkey 

Academy 


Stop  the  express 
(Para  H  Tren) 


Creative 

Greetings 


El  Ahorcado 


Alibaba 


Sonygrapti 


Programas  Sony  para  ordenadores  MSX 


Husder  (Billar 
Americano) 


Aprendiendo 

lnglés-2 


X  4 


Dorodon 


Juno  Finí 


Ninja 

(El  Samurai) 


Países  Países 

del  Mundo- 1  del  Mundo- 2 


Computador 

Adivino 


Datacartndge 


Quinielas  y 
Reducciones 


Amartic 

Adwnture 


Mastermind 


La  Pulga  • 


Cosmos 


Car  Jamboree 


Tutor 


Home  Writer 


Contabilidad 

Personal 


Control 
de  Stocks 


Track  and 
FiekJ-1 
(olimpiadas) 


Y  muchos 

más  títulos 


LesFIks 


Ordenador  Doméstico 


Computer  The  Snowman 

Billiards 


Cubit 


Sparkie 


Aprendiendo 
Inglés- 1 


Athletic  Land 


E.I. 


Battle  Cross 


Mouser 


Blackjack 


Track  and 
Field-2 
(olimpiadas) 


Para  lo  que  guste  ordenar.  E3 


Character 

Collection 


Binary  land 


Ficheros 


Crazy  Tram 


Driller  Tanks 
(Tanque 
Destructor) 


